Inh. vom DBGrid in einem TLabel kopieren.

[smart]

Hallo , brauche mal Eure Hilfe.
Habe auf einer Form ein DBGrid und Label. DBGrid ist mit Daten gefüllt.Wenn ich auf eine Celle vom DBGrid klicke möchte ich das der Inhalt in dem Label erscheind. Wie macht man sowas.

[mkinzler]

Am einfachstn ein DBLabel verwenden, welches man mit dem entsprechenden Feld verbindet

[DeddyH]

Und wenn es unbedingt ein Label sein muss, dann nicht auf das DBGrid, sondern auf das zugrundeliegende Dataset zugreifen.

[smart]

Zitat:

Zitat von DeddyH (Beitrag 1136988)

Und wenn es unbedingt ein Label sein muss, dann nicht auf das DBGrid, sondern auf das zugrundeliegende Dataset zugreifen.

ja, aber ich möchte beim klick auf DBGrid den entsprechenden Inhalt haben.

[Sir Rufo]

Zitat:

Zitat von smart (Beitrag 1136991)

Zitat:

Zitat von DeddyH (Beitrag 1136988)

Und wenn es unbedingt ein Label sein muss, dann nicht auf das DBGrid, sondern auf das zugrundeliegende Dataset zugreifen.

ja, aber ich möchte beim klick auf DBGrid den entsprechenden Inhalt haben.

Und wo bekommt das DBGrid seinen Inhalt her? ;)

Beim Klick auf das DBGrid ermittelst du einfach nur über die Spalte das Datenbank-Feld und übergibst DataSource und Field an das DBLabel. Und schwups ist der Text im Label

[smart]

was ist hier falsch

Delphi-Quellcode:

Label1.Caption := DBGrid1.Columns.Items[0].DisplayName;

<br>
ich bekomme nicht den Name wo drauf ich klicke?

[DeddyH]

Nochmal: nicht das DBGrid abfragen, sondern die Datenmenge.

Delphi-Quellcode:

Label1.Caption := DBGrid1.Datasource.Dataset.Fields[0].AsString;

Wobei das so nur eine Krücke ist, Du solltest das zugewiesene Dataset (Query oder Table) direkt abfragen.

[Bummi]

oder gleich so

Delphi-Quellcode:

  if DBgrid1.SelectedIndex > -1 then
     DBText1.DataField := DBGrid1.Columns[DBgrid1.SelectedIndex].Field.FieldName
  else DBText1.DataField := '';

[smart]

Ok, jetzt habe ich es kapiert. vielen Dank an Euch.

[smart]

Komisch, wenn ich es so mache

Delphi-Quellcode:

  if DBgrid1.SelectedIndex > -1 then
      DBText1.DataField := DBGrid1.Columns[DBgrid1.SelectedIndex].Field.FieldName
   else DBText1.DataField := '';

dann kommt beim nächsten Zugriff auf dem DBGrid eine Fehlermeldung.