Eine Procedure auf 22 Buttons...

[bernau]

Ne. Den Namen zu extrahieren um dann auf eine ID zu kommen, ist schon Käse.

Ich bin im Laufe der Zeit dazzu übergegangen so wenig wie möglich im Objektinspektor zu definieren. Da ich keine Übersicht über die Einstellung mehrerer Elemente habe.

Ich mache dann lieber eine Function die mir die Id zurückgibt.

Delphi-Quellcode:

procedure IdFromButton( Sender : TObject ):integer;
begin
  if sender = BtnDies then result:=1 else
  if sender = BtnUnd then result:=2 else
  if sender = BtnDas then result:=3 else
    begin
       result:=-1;
      // Hier eine Exception oder sonst was
    end;
end;

Diese Function ist genau so schnell geschrieben, als wenn ich die Tags über den Objectinspector setze. Das ergebnis kann dann auch irgend ein selbst definierter Aufzählungstyp sein.

Aber auch dies: Geschmackssache.