Standard-Dialoge

Für Fragen von Einsteigern und Programmieranfängern...
Antworten
Minits
Beiträge: 30
Registriert: So 30. Okt 2016, 21:13
OS, Lazarus, FPC: Winux (L 0.9.xy FPC 2.2.z)
CPU-Target: xxBit

Standard-Dialoge

Beitrag von Minits »

Wie kann ich auf einen Button, der im Befehl "showmessage" eingebunden ist, zugreifen, z.B. der User drückt auf "Abbrechen" und dann kann ich dem eine Anweisung folgen lassen?

compmgmt
Beiträge: 351
Registriert: Mi 25. Nov 2015, 17:06
OS, Lazarus, FPC: Win 10 Pro | Lazarus 1.8.2 | FPC 3.0.4
CPU-Target: i386 + x86_64
Wohnort: in der Nähe von Stuttgart
Kontaktdaten:

Re: Standard-Dialoge

Beitrag von compmgmt »

Nutze dafür lieber MessageDlg.

Beispiel für ein Dialog mit Ja, Nein und Abbrechen:

Code: Alles auswählen

case MessageDlg('Titel', 'Nachricht', mtConfirmation, [mbYes, mbNo, mbCancel], 0) of
  mrYes: ShowMessage('Yes');
  MrNo: ShowMessage('No');
  MrCancel: ShowMessage('Cancel');
end;

mtConfirmation ist der Dialogtyp. In diesem Fall eine Abfrage.

Code: Alles auswählen

InitiateSystemShutdownExA(nil, nil, 0, true, false, $0005000F);
Have fun with this snippet ;)

Antworten