Einzelnen Beitrag anzeigen

Benutzerbild von bernau
bernau

Registriert seit: 1. Dez 2004
Ort: Köln
1.295 Beiträge
 
Delphi 12 Athens
 
#13

Re: Eine Procedure auf 22 Buttons...

  Alt 3. Nov 2009, 09:39
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.
Gerd
Kölner Delphi Usergroup: http://wiki.delphitreff.de
  Mit Zitat antworten Zitat