Anderes Ereignis bei ButtonClick auslösen

[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