12-04-2019, Saat: 18:31
(12-04-2019, Saat: 12:27)mrmarman Adlı Kullanıcıdan Alıntı: Ö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;
Draw ile c# da yapmıştım ama Delphide denememiştim.
Draw da gayet başarılı