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:

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?

:wall:
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.