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