قراردادن یک یا چند دکمه در هر کدام از رکوردهای DBgird

[آیدا رضایی]

دوستان چطور میشه در Dbgrid واسه هر رکورد یک فیلد اضافه کرد که در هرکدوم از اونها مثلا دکمه ای برای حذف اون رکورد و دیگر اعمال باشه.

[shayan_delphi]

سلام
از Popup Menu استفاده کنید تا با کلیک راست روی هر رکورد بتونید اعمال مورد نظر را انجام بدید

[آیدا رضایی]

من میخوام واسه هر رکورد یه فیلد جداگانه داشته باشم و در اون فیلد Button های من نمایش داده بشن (مثلا SpeedButton که هم عکس بگیره و کوچیک و جمع و جور باشه) و کاربر با کلیک روی اونا عمل مورد نظر رو انجام بده.

[vcldeveloper]

می تونید یه ستون اضافی به DBGrid اضافه کنید و یه Button در اون رسم کنید. در OnClick اون Button هم باید کد مربوط به تغییرات در رکورد جاری را بنویسید. فکر کنم قبلا در سایت در مورد نمایش سایر کنترل ها در DBGrid بحث شده.

[آیدا رضایی]

آقای کشاورز.
میشه لطف کنید یک مثال در این مورد برای من بزنید ؟.
ممنون میشم .

[vcldeveloper]

سلام،
می بخشید با تاخیر جواب میدم...
برای DBGrid مورد نظر یک ستون جدید تعریف بکنید مقدار ActionColIndex در کد زیر را بر روی شماره Index اون ستون تنظیم کنید:

const

  ActionColIndex = 3;

type

  THackedDBGrid = class(TDBGrid);

procedure TForm1.FormCreate(Sender: TObject);

begin

  Button := TButton.Create(Self);

  with Button do

  begin

    Parent := self;

    Visible := False;

    Caption := 'Do Action';

    TabStop := True;

    OnClick := GridActionBtnClick;

  end;

end;

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

  DataCol: Integer; Column: TColumn; State: TGridDrawState);

var

  GridCurrentRow,

  DbCurrentRow   : integer;

begin

  GridCurrentRow := THackedDBGrid(Sender).Row;

  DbCurrentRow := AdoTable1.RecNo;

  if DataCol = ActionColIndex then

    if GridCurrentRow = DbCurrentRow then

    begin

      with Button do

      begin

        Left :=  Rect.Left + DBGrid1.Left + 2;

        Top := Rect.Top + DBGrid1.top + 2;

        Height := Rect.Bottom - Rect.Top;

        Width := Rect.Right - Rect.Left;

        Visible := True;

      end;

    end;

end;

procedure TForm1.GridActionBtnClick(Sender: TObject);

begin

  ShowMessage('Button is clicked');

end;