Einen Button klicken

[Sugar]

Hallo Forum,

der Titel liest sich wohl blöd, aber ich verzweifele gerade....

Ich möchte gerade ein wenig Bediennugskomfort in eine Oberfläche bringen und habe deshalb TButtons durchnummeriert und ihnen einen Namen danach gegeben: Also Button1 heisst T1, Button 2 T2 usw.

In einer Tabelle halte ich gespeichert, welche Tastenkombination der User sich für die einzelnen Buttons gesetzt hat. Mein Gedanke war, die Tasteneingabe auszuwerten, den "gedrückten" Button zu identifiziern und ihn dann auch zu "klicken".

Leider bekomme ich eine Zugriffsverletzung mit der ich rein gar nichts anfangen kann - und zwar bei:

Tbutton(t).Click

Wobei T eine simple Variable vom Typ String ist.

Weiß einer was ich falsch mache und wie ich es zum "laufen" kriege?

[himitsu]

FindComponent ?

Was denn für Tastenkombinationen?
Alt + BuchstabeZahlOderZeichen kann ein Button ja von selbst behandeln. (TButton.Caption)

[jfheins]

Tbutton(t).Click Du kannst halt keinen String zu einem TButton casten. Das funktioniert nur, wenn die Typen kompatibel sind. (Du könntest z.B. einen TButton zu einem TControl casten)

Die Variablennamen, die du vergeben hast, tauchen übrigens im späteren Programm nicht mehr auf. Daher ist es im Allgemeinen auch unmöglich, anhand eines Variablennamens (in einem String) zur Laufzeit die Variable zu bestimmen, die so heißt. Bei Buttons hast du eventuell noch die Möglichkeit über FindComponent.


Aber mal so Allgemein: Shortcuts konfigurierbar zu machen ist erstmal viel Aufwand, in den meisten Fällen reicht es doch aus, wenn es diese gibt und sie im Tooltip stehen. Der Benutzer wird sich dann schon diejenigen merken, die er oft benutzt.

[Popov]

Zitat von Sugar:

Tbutton(t).Click

Wobei T eine simple Variable vom Typ String ist.

Also man kann das irgendwie schon machen, aber man sollte da aufpassen, dass das einem nicht um die Ohren fliegt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Hallo Welt!');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  ButtonName: String;
begin
  ButtonName := 'Button1';
  if FindComponent(ButtonName).ClassType = TButton then
  begin
    TButton(FindComponent(ButtonName)).Perform(WM_LBUTTONDOWN, 0, 0);
    TButton(FindComponent(ButtonName)).Perform(WM_LBUTTONUP, 0, 0);
  end;
end;

Wenn man das Ganze auch noch schön in eine Prozedur auslagert, dann kann man wuderbar auf jeden Button über Namen zugreifen:

Delphi-Quellcode:

procedure StringButtonClick(Form: TForm; ButtonName: String);
begin
  with Form do
    if FindComponent(ButtonName).ClassType = TButton then
    begin
      TButton(FindComponent(ButtonName)).Perform(WM_LBUTTONDOWN, 0, 0);
      TButton(FindComponent(ButtonName)).Perform(WM_LBUTTONUP, 0, 0);
    end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  StringButtonClick(Form1, 'Button1');
end;

[DeddyH]

Auch wenn ich mich wieder unbeliebt mache:

Delphi-Quellcode:

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;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ClickButtonByName(self, 'Button1');
end;

Man kann natürlich auch noch Exceptions werfen, wenn die Komponente nicht gefunden wurde oder kein TButton ist, ich hab hier darauf verzichtet.

[Sugar]

Well, cool!
Danke für die Tipps.

Ich bin morgen wieder vor dem PC und probiere man.

Heißen Dank für die Tipps bis hierhin1

[mkinzler]

Mit Zynismus ist aber auch keinem geholfen.

[DeddyH]

Du hast Recht, die Fehlermeldung "Zugriffsverletzung bei Adresse 0x000000004" ist natürlich aussagefähiger als "Komponente Button1 nicht gefunden", und

Delphi-Quellcode:

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;

[Bernhard Geyer]

Zitat von Sugar:

Ich möchte gerade ein wenig Bediennugskomfort in eine Oberfläche bringen
...
In einer Tabelle halte ich gespeichert, welche Tastenkombination der User sich für die einzelnen Buttons gesetzt hat.

Bei Buttons setzt man hier üblicherweise vor dem als Hotkey zu wirkenden Buchstaben ein &.
D.h. wenn der Button "&Klick mich" heißt, dann führt ein Druck des Buttons "k" zum Ausführen der OnClick-Funktion.

Bei (Kontext-)Menüs wäre das Property ShortCut zu verwenden um Tastenkombinationen wie <Strg> + b mit der Funktion zu verbinden.

Würde diese von der VCL bereitgestellten Möglichkeiten nicht auch schon reichen? Man würde sich einiges an Programmierung sparen.

[MyRealName]

Kann man doch über TActionList besser machen. Der Nutzer konfiguriert die aktionen und man speichert sich mit dem Namen der Aktion die Tastenkombination.Dann stezt man die zur Laufzeit