Eigenschaft Tag: Integer
//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;