Hallo zusammen,

ich habe auf einer Form 16 Speedbuttons. Jeder Button hat seinen eigenen Namen. Wenn ich jetzt für jeden Button eine Procedure schreiben würde, hätte ich 16 neue Proceduren, die sich lediglich nur in 1-2 Zeilen unterscheiden. Jetzt könnte ich alle Buttons umbenennen und mit einer fortlaufenden Zahl versehen. Das finde ich aber nicht so elegant, wegen der Lesbarkeit vom Sourcecode und der Zuordnung. Ich habe lieber aussagekräfigte Namen für die Komponenten.

Dann kam ich auf die Idee, mit der Eigenschaft Tag zu arbeiten. Dabei ist die Frage aufgekommen, wozu wird die Eigenschaft Tag eigentlich genutzt ?
Kann ich die Eigenschaft für dieses Vorhaben misbrauchen ?
Oder gibt es eine anderen Weg ?

Du kannst den Tag-Wert verwenden wofür immer du willst, er hat keine vordefinierte Bedeutung. Und ja, der Anwendungsfall, den du beschreibst, ist durchaus ein typischer für das Tag-Dingens...

Tags bieten sich für sowas doch direkt an. Ich mach das selbst sehr oft:

markieren

Delphi-Quellcode:

procedure ButtonClick(Sender: TObject);
var t: Integer;
begin
  t:=(Sender as TSpeedButton).Tag;
  case t of
    1: ;
    ....
  end;
end;

Gerade bei sehr vielen Buttons mit nur geringfügig anderer Funktion rentiert sich das

Zitat von RWarnecke:

Ich habe lieber aussagekräfigte Namen für die Komponenten.

Man könnte natürlich auch TComponent(Sender).Name vergleichen/prüfen,

aber besser wäre es da die Objektinstanz (Sender) zu vergleichen.

Ja, und man könnte natürlich auch .Tag dafür verwenden.

Zitat von himitsu:

Zitat von RWarnecke:

Ich habe lieber aussagekräfigte Namen für die Komponenten.

Man könnte natürlich auch TComponent(Sender).Name vergleichen/prüfen,

Dann hätte ich aber lauter IF-Abfragen.

Zitat von Meflin:

Du kannst den Tag-Wert verwenden wofür immer du willst, er hat keine vordefinierte Bedeutung. Und ja, der Anwendungsfall, den du beschreibst, ist durchaus ein typischer für das Tag-Dingens...

Das hört sich ja gut an. Ich glaube dann werde ich es über die Tag-Eigenschaft machen.

Danke nochmal an alle für Ihre Antworten.