Anderes Ereignis bei ButtonClick auslösen

[TM4rkuS]

Zitat von 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
  ...

Okay, die Lösung war zu einfach... Ich muss geradeaus-Denken lernen -.-' Dabei ist Delphi schon so intuitiv...