Registriert seit: 6. Apr 2011
Ort: Berlin
3.070 Beiträge
Delphi 10.4 Sydney
|
AW: showmessage
12. Sep 2017, 10:32
Verwende doch einfach die Windows-Funktion MessageBox und frage das Klickergebnis (Rückgabewert ab):
Delphi-Quellcode:
var
DialogBoxType: UINT;
ModalResult: TModalResult;
begin
DialogBoxType := 0; // OK button only;
ModalResult := MessageBox(Application.Handle, 'Hello', 'World', DialogBoxType);
if IsPositiveResult(ModalResult) then
begin
// mach hier deinen Kram!
raise EProgrammerNotFound.Create('Möp');
end;
end;
https://msdn.microsoft.com/de-de/lib...(v=vs.71).aspx
|