Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: Einen Button klicken

   
    by DeddyH, 28. Mär 2015
  Du hast Recht, die Fehlermeldung "Zugriffsverletzung bei Adresse 0x000000004" ist natürlich aussagefähiger als "Komponente Button1 nicht gefunden", und
  TButton(FindComponent(ButtonName)).Perform(WM_LBUTTONDOWN, 0, 0);
  TButton(FindComponent(ButtonName)).Perform(WM_LBUTTONUP, 0, 0);
  ist um Einiges anfängerfreundlicher als
  TButton(Component).Click;
  :roll:
• Forum: Object-Pascal / Delphi-Language

  AW: Einen Button klicken

   
    by DeddyH, 28. Mär 2015
  Auch wenn ich mich wieder unbeliebt mache:
  procedure ClickButtonByName(AOwner: TComponent; const ButtonName: string);
  var
  Component: TComponent;
  begin
  Component := AOwner.FindComponent(ButtonName);
  if Assigned(Component) and (Component is TButton) then
  TButton(Component).Click;
  end;