Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

ShowMessage pod VCL i FMX

[es] :: Pascal / Delphi / Kylix :: ShowMessage pod VCL i FMX

[ Pregleda: 1575 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Milan Milosevic

Član broj: 67
Poruke: 932
*.dynamic.isp.telekom.rs.



+31 Profil

icon ShowMessage pod VCL i FMX26.05.2014. u 10:37 - pre 119 meseci
Imam mali problem koji ne mogu da resim na najednostavniji i po meni najlogicniji nacin.
Imam unit koji koristim i pod VCL i po FireMonkey
Sve funkcije i procedure i ostalo u junitu u potpunosti rade na obe platforme , jedini problem je slanje poruka koje sam definisao
u kodu preko procedure ShowMessage.
Ova procedura se nalazi u unitu Dialogs, ali kod FireMonkey -a mora da se u Uses listi navesti FMX.Dialogs.
Dakle za svaku promenu koda ja posao moram da radim dva puta za obe platforme zbog jedne sitnice.

Pitanje je da li mozda postoji nacin da se ovo izbegne i da se koristi Dialogs koji ce raditi za obe platforme, odnosno bila koja drugi nacin
obavestavanja korisnika o Gresci i sl.

Pozdrav
 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: ShowMessage pod VCL i FMX26.05.2014. u 11:59 - pre 119 meseci
Mozes da proveris da li se program kompajlira pod MSWINDOWS sa IFDEF, ali pretpostavljam da ti to nece biti dovoljno, tako da mozes da uradis nesto ovako:

Code:

uses
  {$IF DECLARED(FireMonkeyVersion)} FMX.Dialogs {$ELSE} Vcl.Dialogs {$ENDIF} ...
 
Odgovor na temu

Milan Milosevic

Član broj: 67
Poruke: 932
*.dynamic.isp.telekom.rs.



+31 Profil

icon Re: ShowMessage pod VCL i FMX26.05.2014. u 14:41 - pre 119 meseci
Hvala reiser to je bas to.

Pozdrav
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: ShowMessage pod VCL i FMX

[ Pregleda: 1575 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.