Button gedrückt lassen

[bautschi]

Hallo allerseits !

Folgende Frage:
Wie kann ich einen Button nachdem ich ihn 1x gedrückt habe deaktivieren ? (gedrückt lassen)

lg thomas

[Alexander]

probier es mal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Enabled := false;
end;

[r_kerber]

Wenn TSpeedButton verwendest, dann hast Du die Möglichkeit dies mit der Eigenschaft Down umzusetzeen. Mit TButton und TBitBtn geht das IMHO nicht.

[Alexander]

du kannst sie doch einfach deaktivieren, siehe mein posting

[Uncle Cracker]

Kannst ja auch damit was probieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Perform(WM_LButtonDown,0,0);
  Sleep(200);
  Button1.Perform(WM_LButtonUp,0,0);
end;

[r_kerber]

ich denke er möcht, dass er möcht, dass der Button so aussieht als wäre er gedrückt und eingerastet.

[Alexander]

naja dann müsste man das halt mit der API machen...so wie das Uncle Cracker gezeigt hat...wir werden ja sehen...

[Sharky]

Zitat von alexander:

naja dann müsste man das halt mit der API machen...so wie das Uncle Cracker gezeigt hat...wir werden ja sehen...

Und wenn garnichts anderes geht kann man das ganze ja mit einem Panel machen

[r_kerber]

Wieso TPanel? TSpeedButton!