|
(Moderator)
Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
Delphi 2006 Professional
|
Re: Rekursiven Eventaufruf verhindern
12. Jun 2006, 09:52
Delphi-Quellcode:
procedure TYourForm.CheckBoxClicked(Sender: TObject);
var lOnClick: TNotifyEvent;
begin
lOnClick := TCheckbox(Sender).OnClick;
TCheckbox(Sender).OnClick := nil;
//Do whatever you want
TCheckbox(Sender).OnClick := lOnClick;
end;
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
|