Frage zu QuestionDlg [gelöst]

[six1]

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/

[fliegermichl]

Der Dialog kann ja noch nicht mal Kaffee kochen

Spass beiseite - Top!

[Winni]

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

Hi!

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

Winni

[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;