sender simulieren

[QuickAndDirty]

Einen Tastendruck auf 80 Buttons simulieren? Das hört sich an
als ob irgend etwas sehr sehr komisches programmiert wird.......

Was bezweckst du mit dem Simmulieren von 80 Buttonklicks?

[SirThornberry]

Zitat von 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?


Gruß Oldie

Das liegt daran das du als Sender "Self" übergibst und nicht "FindComponent('Button'+ IntToStr(i))".
Wenn du Self als Sender angibst ist es logisch das der Sender dann auch Self ist.