SpeedButton zu TModalResult machen?!

[arest]

Hallo Leute,

ich habe ein Problem: Ich möchte einen SpeedButton zu einem ModalResult machen. Sprich ne antwort:tmodalresult variable anlegen. Mit nem BitBtn weiss ich wie es geht, aber wie bringe ich einen normalen Button dazu sich wie ein bkOK zu verhalten?! Any help helps :P

[omata]

Moin,

indem du im OnClick-Ereignis ModalResult selber setzt.

MfG
Thorsten

[arest]

ajo schöne idee, aber wie genau soll das gehen? Oo ich mein, wenn ich unter ereignisse gehe und da dann halt OnClick, dann wird das wohl nix ^^ wo sonst?

[xaromz]

Hallo,

wie wär's mit:

Delphi-Quellcode:

TForm1.SpeedButton1Click(Sender: TObject);
begin
  ModalResult := mrOk;
end;

Gruß
xaromz

[arest]

so muss das, danke :)