DbGrid de seçili hücredeki değeri popup menüsünde kullanmak

[Berdem]

Kod: Tümünü seç

procedure TForm1.HucreDegeri;
begin
  KolonAdi := DBGrid1.SelectedField.FieldName;
//    HucreAdi := DBGrid1.DataSource.DataSet.FieldByName(KolonAdi).AsString;
  HucreAdi := dm.dataset.FieldByName(KolonAdi).AsString;
end;

Kod: Tümünü seç

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
HucreDegeri;
A1.Caption:=HucreAdi+' Klasörünü Aç'
end;

sol click ile seçildiğinde popup değeri gösteriyor sorun yok.Ama hücreyi başka seçili alana götürdüğünüzde önceki alanın değerini alıyor. Tablonun datachange inde gösterseniz durum değişmiyor.

Kod: Tümünü seç

procedure Tdm.dtsrcDataChange(Sender: TObject; Field: TField);
begin
  if dataset.State = dsBrowse then
  begin
       form1.HucreDegeri;
  end;

[conari]

seçili değer için

Kod: Tümünü seç

dbgrid1.SelectedField.Value

işinizi görmüyormu?

[Berdem]

Teşekkürler ama malesef işimi görmüyor. CellClick yaptığımda sonucu alıyorum.Ama grid üzerinde click yapmadan başka alan üzerine seçili konumuna gecersem önceki click yapmış alanın bilgisini veriyor. Datachange browserinden sonuç alayım dedim ama oda malesef sonuç vermedi.