Komponenten
Syntax:
Eigenschaft Tag: Integer
Beschreibung:Die Eigenschaft Tag speichert eine Ganzzahl als Teil der Komponente.
Tag hat keine vordefinierte Bedeutung. Die Eigenschaft Tag steht zur freien Benutzung durch Entwickler zur Verfügung.
Sie können in dieser Eigenschaft zusätzliche Informationen über die Komponente in Form einer Ganzzahl speichern oder die Eigenschaft in einen 32-Bit-Wert,
wie z.B. in eine Komponentenreferenz oder einen Zeiger, umgewandelt werden.
Beispiel:
//Im folgenden Beispiel kann der Benutzer die aktuell ausgewählte Zelle in einem Datenbankgitter verschieben.
//Das Ereignis OnClick der Schaltflächen Auf und Ab ist der Prozedur UpDownClick zugewiesen.
//Das Ereignis OnClick der Schaltflächen Links und Rechts ist der Prozedur LeftRightClick zugewiesen.
//Der Eigenschaft Tag der Schaltflächen Auf und Links wird -1, der Eigenschaft Tag der Schaltflächen Ab und Rechts 1 zugewiesen.
procedure TForm1.UpDownClick(Sender: TObject);
begin
ClientDataSet1.MoveBy(TComponent(Sender).Tag);
DBGrid1.SetFocus;
end;
procedure TForm1.LeftRightClick(Sender: TObject);
begin
DBGrid1.SelectedIndex := DBGrid1.SelectedIndex + TComponent(Sender).Tag;
DBGrid1.SetFocus;
end;