TObject.Name ????

[oldmax]

Hi
Also, ich glaube nicht, das bei einem Button - Ereignis die Geschwindigkeit eine Rolle spielt...
Also, um nicht nur 1 oder 2 sondern n-Objekte zu verarbeiten wäre die Lösung schon in der Stringform des Namens..
Name z.B. BtTaste_1, BtTaste_2, .. BtTaste_n

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObejct); 
Var RefName    : String;
    ElementNr  : String;
    xPos       : Integer;
begin 
  
  RefName:= (Sender as TComponent).Name;
  xPos:=Pos('_',RefName); // ergibt die Stelle vo Anfang der Zahl
  ElementNr:=Copy(RefName,xPos+1, Length(RefName)-xPos); // ergibt den Zahlenanteil des Namens
  Case ElementNr of '1': tu_eins;
                    '2': tu_Zwei;
                    ......
  end;       
end;

Ich garantier euch, bevor ihr daran gedacht habt, die Maustaste loszulassen ist diese Procedure abgearbeitet...
Manchmal ist's einfacher, auf die Bearbeitungszeit zu pfeifen....
Gruß oldmax