TCheckBox.OnClick extern aufrufen

[Volker Z.]

Hallo,

könnte auch so gehen:

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var
  i : Integer;
  c : TComponent;
  n : TNotifyEvent;
begin
  for i := 0 to ComponentCount - 1 do
    begin
      c := Components [i];
      if (c is TAdvOfficeCheckBox) and (Pos ('cb_dm_', c.Name) = 1) then
        begin
          n := TAdvOfficeCheckBox (c).OnClick;
          if Assigned (n) then
            n (c)
        end
    end
end;

Gruß