Anderes Ereignis bei ButtonClick auslösen

[TM4rkuS]

Mhm, hab keine passende Überschrift gefunden, die mein Problem beschreibt.

Ich möchte unter bestimmten Umständen nach einem ButtonClick ein anderes Ereignis (ein LabelClick) auslösen, der auch seperat allein geschaltet werden kann. Also, mal eben mein Projekt umreißen, falls noch nicht klar ist, was gemeint ist: Ich habe einige Label, Edit-Felder, etc. nebeneinander stehen und davon dann 5 Zeilen. In diese Edit-Felder werden einzelne Zeilen aus einem Memo eingefügt. Man kann auch manuell Daten einfügen. Und man kann manuell eine weitere Zeile an Labels, Edit-Feldern, etc hinzufügen, und zwar durch eben diesen LabelClick. Wenn jetzt aber automatisch die Zeilen aus dem memo in die Edit-Felder übertragen werden, kann es ja vorkommen, dass das memo größer ist als 5 Zeilen. Jetzt möchte ich einfach, dass, falls mehr als 5 Zeilen vorhanden sind, für jede überschüssige Zeile einmal das LabelClick-Ereignis durchgeführt wird. Wie stelle ich das an, ohne das gesamte Label-Click-Ereignis in eine Funktion zu stecken?

[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
  ...

[implementation]

oder so:

Delphi-Quellcode:

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

[hoika]

Hallo,

oder so

Delphi-Quellcode:

procedure TForm.ButtonClick;
begin
  if IsBla then
  begin
    DoAction1;
  end
  else
  begin
    DoAction2;
  end;
end;

procedure TForm.LabelClick;
begin
  DoAction2;
end;

Heiko

[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...