Inh. vom DBGrid in einem TLabel kopieren.

[Bummi]

was für eine Meldung bekommst Du denn?

[smart]

Zitat von Bummi:

was für eine Meldung bekommst Du denn?

beim nächsten klick auf dem DBGrid kommt die Meldung:
Feld wurde nicht gefunden!

[Bummi]

kann ich mir jetzt nur erklären wenn Du im Grid z.B. per Doppelklick Spalten hinzugefügt hast die kein Feld enthalten, oder wenn DBText an einer anderen Datasoure als das Grid hängt ....

[Bebe]

[erste Antwort gelöscht]

Du mußt nur das Event OnCellClick verwenden. Das Ergebnis der Zelle wird in ein Label geschrieben.

Delphi-Quellcode:

procedure TForm6.DBGrid1CellClick(Column: TColumn);
begin
   lblField.Caption := DBGrid1.Columns[Column.Index].Field.Value;
end;

Sorry für die falsche Antwort.

Gruß
Matze

[smart]

Ich habe es jetzt so versuch
Label1.Caption := Table1.Fields.Fields[Column.Index].AsString; Klappt auch und es werden sogar leere Felder übergeben.

[Sir Rufo]

Also ganz korrekt und immer funktionierend würde es so gehen:

Delphi-Quellcode:

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  if Assigned( Column ) and Assigned( Column.Field ) then
    Label1.Caption := Column.Field.AsString
  else
    Label1.Caption := '';
end;

Hierbei ist es egal, welche DataSource an dem DBGrid hängt, und in welcher Reihenfolge die Felder in dem DBGrid angezeigt werden. Es wird das Feld genommen, was tatsächlich zu der gewählten Zelle gehört