Thema: showmessage

Einzelnen Beitrag anzeigen

TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.070 Beiträge
 
Delphi 10.4 Sydney
 
#6

AW: showmessage

  Alt 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
  Mit Zitat antworten Zitat