Frage zu QuestionDlg [gelöst]

Für alles, was in den übrigen Lazarusthemen keinen Platz, aber mit Lazarus zutun hat.
Benutzeravatar
six1
Beiträge: 782
Registriert: Do 1. Jul 2010, 19:01

Re: Frage zu QuestionDlg [gelöst]

Beitrag von six1 »

1a wp_xyz. Ich wüsste nicht, was man da noch vermissen könnte 8)

Deine letzte Version habe ich hier herunter geladen:
https://sourceforge.net/p/lazarus-ccr/s ... s/exctrls/
Gruß, Michael

Benutzeravatar
fliegermichl
Lazarusforum e. V.
Beiträge: 1432
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]

Beitrag von fliegermichl »

Der Dialog kann ja noch nicht mal Kaffee kochen :-)

Spass beiseite - Top!

Benutzeravatar
Winni
Beiträge: 1577
Registriert: Mo 2. Mär 2009, 16:45
OS, Lazarus, FPC: Laz2.2.2, fpc 3.2.2
CPU-Target: 64Bit
Wohnort: Fast Dänemark

Re: Frage zu QuestionDlg [gelöst]

Beitrag von Winni »

six1 hat geschrieben:
Do 25. Nov 2021, 09:35
1a wp_xyz. Ich wüsste nicht, was man da noch vermissen könnte 8)

Hi!

Wie immer: 96 Sprachen inkl. Plattdeutsch, Okzitanisch und Katalanisch .....

Winni

Benutzeravatar
six1
Beiträge: 782
Registriert: Do 1. Jul 2010, 19:01

Re: Frage zu QuestionDlg [gelöst]

Beitrag von six1 »

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:

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) 64-mal heruntergeladen
Gruß, Michael

Antworten