ShowMessage pod VCL i FMX

[ Milan Milosevic @ 26.05.2014. 10:37 ] @

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

[ reiser @ 26.05.2014. 11:59 ] @

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} ...