1a wp_xyz. Ich wüsste nicht, was man da noch vermissen könnte
Deine letzte Version habe ich hier herunter geladen:
https://sourceforge.net/p/lazarus-ccr/s ... s/exctrls/
Frage zu QuestionDlg [gelöst]
Re: Frage zu QuestionDlg [gelöst]
Gruß, Michael
- fliegermichl
- Lazarusforum e. V.
- Beiträge: 1435
- Registriert: Do 9. Jun 2011, 09:42
- OS, Lazarus, FPC: Lazarus Fixes FPC Stable
- CPU-Target: 32/64Bit
- Wohnort: Echzell
Re: Frage zu QuestionDlg [gelöst]
Der Dialog kann ja noch nicht mal Kaffee kochen
Spass beiseite - Top!
Spass beiseite - Top!
Re: Frage zu QuestionDlg [gelöst]
Ich habe noch etwas benötigt:
Wenn der Anwender nicht reagiert, soll sich der Dialog automatisch schließen mit 'IsDefault' TModalResult.
Habe das noch mit rein gebaut (overload).
Aufruf:
Wenn der Anwender nicht reagiert, soll sich der Dialog automatisch schließen mit 'IsDefault' TModalResult.
Habe das noch mit rein gebaut (overload).
Aufruf:
Code: Alles auswählen
uses ExQuestionDlg;
....
procedure TForm1.Button1Click(Sender: TObject);
var
res:TModalResult;
begin
res:=QuestionDlgEx(
'QuestionDlgEx',
'...mit Timeout',
5, {Timeout in Sekunden}
mtWarning, [mbYes, 'Ja', mbNo, 'Nein', mbCancel, 'Abbruch', 'IsDefault'],
mouse.CursorPos.X, mouse.CursorPos.Y
);
end;
- Dateianhänge
-
- ExQuestionDlg.pas
- (21.09 KiB) 65-mal heruntergeladen
Gruß, Michael