Ö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;
Saygılarımla
Muharrem ARMAN
Muharrem ARMAN