Einzelnen Beitrag anzeigen

Blup

Registriert seit: 7. Aug 2008
Ort: Brandenburg
1.464 Beiträge
 
Delphi 12 Athens
 
#15

Re: TCheckBox.Checked löst OnClick aus?

  Alt 4. Jan 2010, 10:47
Hier noch eine "saubere" Variante den Status zu setzen, ohne das Event auszulösen:
Delphi-Quellcode:
procedure SetCheckBox(ACheckBox: TCheckBox; AValue: Boolean);
var
  Event: TNotifyEvent;
begin
  with ACheckBox do
  begin
    Event := OnClick;
    try
      OnClick := nil;
      Checked := AValue;
    finally
      OnClick := Event;
    end;
  end;
end;
Grundsätzlich mit Action zu arbeiten, ist aber eventuell der bessere Weg.
  Mit Zitat antworten Zitat