Button Click ohne OnClick

[Sharky]

Zitat von Steve:

...Oder wie auch immer Deine Ereignisbehandlungsroutine heißt...

Hier noch mal das ganze als allgemeinere Lösung

Delphi-Quellcode:

procedure TForm1.CheckBox1Click(Sender: TObject);
var
  tmp_OnClick : TNotifyEvent;
begin
  with (Sender As TCheckBox) do
  begin
    tmp_OnClick := OnClick;
    OnClick := nil;
    Checked := True;
    OnClick := tmp_OnClick;
  end;
end;

[Edit]Was so natürlich keinen Sinn ergibt. Ich wollte nur den Weg mit dem TNotifyEvent zeigen

[biochip]

Hi, sharky

Hat dein Prinzip dan Sinn für Demos .Wenn Sofwareprogramm z.B Delphi demonstriert werden soll.
Der Mauszeiger wandert auf die Buttons und simuliert ein Mausclick(Button nihmt optisch den click an und führt den Code der Ereignisbehandlungsroutine aus . Wie könnte man das coden für ein Testbutton.

Gruss

biochip