Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
DBGrid Detay Gösterilmesi.
(12-04-2019, Saat: 04:49)OZCANK Adlı Kullanıcıdan Alıntı: Arkadaşlar Merhaba; Form1 e Edit1 ve birde DBGrid1,DBGrid2  ekledim Edit1 de yazdığım "Fatura No" veya "Cari İsimden" Kayıt buldurup DBGrid1 de listeliyorum fakat 2. bir DBGrid2 de DBGrid1 de seçtiğim Faturanın Stok Detayını listeliyorum. Şimdi ben bu işlemi sadece DBGrid1 de bitirebilir miyim?

şöyle ki DBGrid1 listedeki "Fatura No" yanında "+"  işareti olabilir mi? "+" Tıkladığım da o faturaya ait stok detayı gelsin. Olursa nasıl yapabilirim ? kod örneği var mıdır? Yardımcı olur musunuz?

Adding Buttons to DBGrid

Steve Zimmelman

The DBGrid is very handy and provides a convenient interface for most tasks. But you may find that it falls short when you try to implement certain bells and whistles. For example, adding components like SpeedButtons or SpinButtons to your grid could really spice up the application. But how do you do it? Steve Zimmelman offers a simple technique.

To add buttons to a DBGrid, you really need a more flexible DBGrid. So the first step is to subclass the TDBGrid and expose some of its methods and properties (see the code block that follows). In order to place the button in the proper cell coordinate, you'll need to know the current row and the CellRect of the Cell that's being displayed. While you're at it, you could put a wrapper around the DefaultRowHeight property so you can change the grid's row height for a more accommodating look.
The key event that you'll use to display the button is the OnDrawColumnCell. But the event's parameter, Rect (a type of TRect), doesn't always work properly for your needs. That's because the Rect is of the Cell that's being drawn, and you need the Data Cell that's identified by the Row property.

unit DBGridObj;


uses Windows, Messages, SysUtils, Classes, Graphics,

     Controls, Forms,Grids, dbGrids;


TDBGridObj = class(TDBGrid)


  FRowHeight : Integer ;





  // The inherited method is declared as protected.

  // Used Reintroduce to hide compiler warnings.

  Function CellRect(ACol,Arow : Longint):TRect; Reintroduce;

  // Expose Row and Col properties

  Property Row ;

  Property Col ;


  Property RowHeight : Integer

     Read FRowHeight Write SetRowHeight ;


procedure Register;


Uses DB ;

Function TDBGridObj.CellRect(ACol,ARow:Longint):TRect;


 Result := Inherited CellRect(ACol, ARow);


Procedure TDBGridObj.SetRowHeight(Value:Integer);


 If FRowHeight <> Value Then Begin

    FRowHeight := Value ;

    DefaultRowHeight := FRowHeight ;

    // Force Grid to update the RowCount.

    // The method I need to call is

    // UpdateRowCount, but it's declared

    // as private in the parent.  This

    // calls it by making the grid think it has

    // been resized.

    If Self.DataLink.Active Then Begin





procedure Register;


 RegisterComponents('Custom', [TDBGridObj]);



Now that you have a DBGrid that can accommodate your needs, you can add some buttons to it.
Place the new TDBGridObj on a form and create an OnDrawColumnCell event. Place a SpeedButton anywhere on the form.
The following code is rough, and you may not want to use it exactly as-is in an application, but it provides a good example of how this comes together.
I use the Index property of the Column parameter to identify the Column I want to place the button in. The placement of the button is obtained by some simple calculations based on the Current Data Cell's Rect.

procedure TForm1.DBGridObj1DrawColumnCell(Sender: TObject; const Rect: TRect;

                                        DataCol: Integer; Column: TColumn;

                                        State: TGridDrawState);

Var DataRect : TRect ;


 // Place the button in the first column.

 If (Column.Index = 0) Then Begin

    With ButtonDBGrid1 Do Begin

       DataRect := CellRect(Column.Index,Row);


 // Assign the button's parent to the grid.

 If SpeedButton1.Parent <> ButtonDBGrid1 Then

    SpeedButton1.Parent := ButtonDBGrid1 ;

 // Set the button's coordinates.

 // In this case, right justify the button.

 If SpeedButton1.Left <> (DataRect.Right - SpeedButton1.Width) Then

    SpeedButton1.Left := (DataRect.Right - SpeedButton1.Width) ;

 If (SpeedButton1.Top <> DataRect.Top) Then

    SpeedButton1.Top := DataRect.Top ;

 // Make sure the button's height fits in row.

 If (SpeedButton1.Height <> (DataRect.Bottom-DataRect.Top)) Then

    SpeedButton1.Height := (DataRect.Bottom-DataRect.Top);


And that's all there is to it! You can use TSpinButtons the same way, with one exception: Set the SpinButton's Ctl3D property to False. Otherwise, it leaves a dark border on the top and bottom lines of the cell.
Using this method, your grids can look like this:


Kaynak : http://www.skzimmelman.com/Articles/buttongrid.htm

Bu Konudaki Yorumlar
DBGrid Detay Gösterilmesi. - Yazar: OZCANK - 12-04-2019, Saat: 04:49
Cvp: DBGrid Detay Gösterilmesi. - Yazar: FiRewaLL - 12-04-2019, Saat: 08:43
DBGrid Detay Gösterilmesi. - Yazar: mrmarman - 12-04-2019, Saat: 08:53
DBGrid Detay Gösterilmesi. - Yazar: emrgln - 12-04-2019, Saat: 09:16
DBGrid Detay Gösterilmesi. - Yazar: mrmarman - 12-04-2019, Saat: 09:32
DBGrid Detay Gösterilmesi. - Yazar: adelphiforumz - 12-04-2019, Saat: 09:44
DBGrid Detay Gösterilmesi. - Yazar: mcuyan - 12-04-2019, Saat: 12:13
DBGrid Detay Gösterilmesi. - Yazar: mrmarman - 12-04-2019, Saat: 12:27
DBGrid Detay Gösterilmesi. - Yazar: FiRewaLL - 12-04-2019, Saat: 18:31
Cvp: DBGrid Detay Gösterilmesi. - Yazar: OZCANK - 15-04-2019, Saat: 06:50

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  DbGrid To Excel & DataSet To Excel yhackup 18 5.091 Dün, Saat: 21:12
Son Yorum: onur balkan
  Delphi7 DBGrid'e sağ tık yaparak form açmak batuhann 6 405 18-04-2020, Saat: 22:17
Son Yorum: denizfatihi
  DBGrid Hücre Kontrolü OZCANK 16 1.057 03-04-2020, Saat: 17:36
Son Yorum: OZCANK
  Dbgrid Kolonlar arasında ENTER tuşu ile dolaşma Bay_Y 5 656 26-12-2019, Saat: 10:05
Son Yorum: Bay_Y
  DbGrid deki Kolon içindeki veri arama Esrefhan 4 841 13-12-2019, Saat: 23:30
Son Yorum: Esrefhan

Konuyu Okuyanlar: 1 Ziyaretçi