automatisch Element mit focus auswählen

[guevaradelaserna]

Hallo!
Ich versuche gerade das jeweilige Element (Button), welches den Focus hat automatisch auszuführen (Click). Für ein Element ist das klar. Jedoch weiss ich nicht, wie ich es bei mehreren Buttons machen kann. Es wäre schön, wenn ihr mir helfen könnt, da ich nicht sehr viel Ahnung von Delphi habe.

Che

[DeddyH]

Abgesehen davon, dass ich den tieferen Sinn nicht verstehe, könntest Du das z.B. so machen:

Delphi-Quellcode:

  if (ActiveControl is TButton) then
  TButton(ActiveControl).Click;

[chest3rs]

Hi.

Ich verstehe deine Frage nicht richtig.

Willst du mehrere Komponenten gleichzeitig auswählen oder dass alle Ereignisse gleichzeitig ausgeführt werden?

[guevaradelaserna]

Hallo!
Erstmal danke für die Antworten! Ich habe ein Programm, welches einen Timer benutzt. Wenn dieser abgelaufen ist, soll bei dem gerade ausgewählten Element das Click-Ereignis ausgeführt werden. Da ich mehrere Elemente habe, weiss ich nicht (aufgrund meines fehlenden Wissens), wie ich an das gerade ausgewählte Element herankomme und dieses ausführen kann.

Danke Che

[DeddyH]

Schau Dir mal dieses Beispiel an (alle Buttons haben denselben Handler):

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Label1: TLabel;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;


implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := TControl(Sender).Name;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (ActiveControl is TButton) then
    TButton(ActiveControl).Click;
end;

end.

Das entspricht somit exakt dem, was ich unter #2 bereits gepostet habe.

[chest3rs]

Ich würde einfach die Leertaste oder Return simulieren. Hierzu brauchst du keybd_event.

Oder einfach nach Tastendruck simulieren suchen.

Gruß

[DeddyH]

Zitat:

Zitat von chest3rs

Ich würde einfach die Leertaste oder Return simulieren.

Und wenn z.B. Notepad zwischendurch den Fokus bekommt, schreibst Du munter Zeichen hinein.

[guevaradelaserna]

Hallo!
Danke so funktionierts DeddyH :-D . Habt ihr auch eine Idee wie man sowas bei Images realisieren kann? Da gibt es ja kein SetFocus.

Ciao Che