Anderes Ereignis bei ButtonClick auslösen

[himitsu]

Dann ruf das andere Ereignis doch einfach aus?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ...
  if Memo1.Lines.Count > 5 then Label2.Click;
end;

oder

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ...
  if Memo1.Lines.Count > 5 then Label2Click(Sender);
end;

procedure TForm1.Label2Click(Sender: TObject);
begin
  ...