Ich dachte du willst die
VCL loswerden, warum dann mehr von der
VCL einbauen?
Nja, erstes Problem ist erstmal die generell unterschiedliche Behandlung von Dialogen.
* in der
VCL arbeiten sie im allgemeinen synchron/blocked (Ablauf wartet bis fertig und gibt das Ergebnis direkt zurück)
* im FMX dagegen asynchron/non-blocked (ohne Halt weiter und das Ergebnis kommt über Events)
Du könntest Funktionen verwenden, die per se eigentlich vorwiegend für die Abwärtskompatibilität vorgesehen sind, aber womit man auch frei eigene Dialoge bauen/anpassen/erweitern kann.
CreateMessageDialog generiert Dialoge ala
MessageBox, aber nachgebaut und basierend auf TForm.
Hier bekommt man die erzeugte TForm und kann dann mit Show+OnClick/OnClose asynchron arbeiten, anstatt mit ShowModal.
Vorrangig wird das verwendet, um Systeme zu unterstüzen, welche die TaskDialog-
API noch nicht kennen (z.B. WinXP) oder wo die NewCommonControls deaktiviert sind (Vista und Win7, wo die Designs fehlen, also wo nur die "alte"
API genutzt werden kann, weil die neuen System-DLLs nicht geladen sind).
Delphi-Quellcode:
function TaskMessageDlgPosHelp(
const Title, Msg:
string; DlgType: TMsgDlgType;
Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer;
const HelpFileName:
string; DefaultButton: TMsgDlgBtn): Integer;
begin
if TOSVersion.Check(6)
and IsNewCommonCtrl
then
Result := DoTaskMessageDlgPosHelp(Title, Msg, DlgType, Buttons,
HelpCtx, X, Y, HelpFileName, DefaultButton)
// nutzt die DialogAPI vom Windows
else
Result := DoMessageDlgPosHelp(CreateMessageDialog(Msg, DlgType, Buttons, DefaultButton),
HelpCtx, X, Y, HelpFileName);
// nutzt die nachgebauten Dialoge der VCL
end;
Oder du baust dir komplett eigene Dialoge aus TForm, welche mit Show+Events arbeiten, anstatt mit ShowModal.
Alternativ kann man in der VCL auch die Dialoge des FMX verwenden. 