sender simulieren

[oldie]

Hi,

ich habe 80 Button auf einer Form.

Mit

Delphi-Quellcode:

    with (FindComponent('Button'+ IntToStr(i))as TButton) do begin
      SetFocus;
      ButtonClick(Self);  // funktioniert nicht
    end;

kann ich jedem Button den Focus geben.

Wie kann ich aber den Sender auf den Button einstellen damit ein Tastendruck auf den Button erzeugt wird?

:wall:
Gruß Oldie

[xaromz]

Hallo,

simulier doch einen Klick:

Delphi-Quellcode:

with (FindComponent('Button'+ IntToStr(i)) as TButton) do
begin 
  SetFocus; 
  Click;
end;

Gruß
xaromz

[Brainstalker]

Hiermit sollte es gehen

Delphi-Quellcode:

var
  Button: TButton;
begin
  Button := FindComponent('Button'+ IntToStr(i))as TButton;
  Button.Click;
end;

[oldie]

:bounce2:

Danke Euch beiden. Alles Versucht nur das einfachste nicht.

Gruß Oldie

[mkinzler]

BTW. Bei 80 Buttons würde ich das nicht über .FindComponent machen, sondern diese in einen Array legen.

[oldie]

Hi mkinzler,

Zitat:

Zitat von mkinzler

BTW. Bei 80 Buttons würde ich das nicht über .FindComponent machen, sondern diese in einen Array legen.

wie geht das? Die Handle bei der Erstellung der Button auslesen und ins Array legen?

Gruß Oldie

[mkinzler]

Delphi-Quellcode:

var
   Buttons: Array of TButton;
...
setLength( Buttons, 80);
for i := 1 to 80 do
begin
   Butons[i-1] := TButton.Create( self);
   Butons[i-1].Parent := self;
   Butons[i-1].Name := 'Button'+IntToStr( i);
...

Buttons[i].click;

[oldie]

danke wieder etwas gelernt

[raffo]

Kann mir einer sagen, wie man das Ganze mit einem TPanel macht?

Delphi-Quellcode:

var 
  s:string;  
  btn:TPanel;
begin

s:='Panel1';

Btn:=FindComponent(s) as TPanel;
Btn.Click;

end;

funzt leider nicht, auch TEdit etc., halt nur mit TButton.

[Klaus01]

Vielleicht so?

Delphi-Quellcode:

var
  s:string;
  btn:TPanel;
begin

s:='Panel1';

Btn:=FindComponent(s) as TPanel;
Btn.OnClick(self);

end;

Grüße
Klaus