DBGrid Detay Gösterilmesi.

[mrmarman]

Örnek :

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 if (DBGrid1.DataSource.DataSet.Active) AND ( NOT DBGrid1.DataSource.DataSet.EOF ) then
 begin
   Showmessage( DBGrid1.DataSource.DataSet.FieldByName('M_Name').AsString );
 end;
end;



// Burası da button taşıma / görüntüleme kısmı
//-------------------------------------------------------
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
 Field: TField; State: TGridDrawState);
begin
 // Buton için uygun column/field hangisisye oraya odaklanacağız...
 if ( Field.FieldName ='Btn' ) then
 begin
   if ( Field.DataSet.RecordCount > 0 ) then
   begin
     // Kayıt Seçili ve Odaklı ise Butonu yerleştir.
     If ( (gdSelected in State) or (gdFocused in State) ) then
     begin
       BitBtn1.Height  := Rect.Bottom-Rect.Top +2;
       BitBtn1.Width   := Rect.Right -Rect.Left;
       BitBtn1.Left    := Rect.Left  + tDBGrid(Sender).Left + 1;
       BitBtn1.Top     := Rect.Top   + tDBGrid(Sender).Top;
       BitBtn1.Visible := True;
       BitBtn1.BringToFront;
     end;
   end;
 end;
end;