showmessage

[TiGü]

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