dbgrid

[mohssen_mz]

قرار دادن باتون در انتهای هر سطر از دیبی گرید.
شاید اینو اساتید بلد باشن ولی برای مبتدی مثل من مفید است.

ابتدا پروژه جدیدی رو باز کنید و سپس یک دیبی گرید و یک دیتاست رو روی فرم گذاشته و ارتیاط اونو با بانک برقرار کنیم
بعد از برقراری ارتباط روی دیبی گرید کلیک کرده تا ستونهای انرا تنظیم کنیم .
با زدن دکمه نیو کولومن خاصیت فیلد اونو تنظیم کنید.سپس خاصیت باتون استایل اونو به
ellips تغییر دهید و برنامه را run کنید .

[mohssen_mz]

اینو یادم رفت :
.اسه کد نویسی اون هم توی رخداد oneditbutton در دیبی گیرید کد اونو مثل
shhowmessage('this is sampel');
وارد نمائید.

[mehdi_mohamadi]

سلام
اگه بخواهیم چک کنیم که دکمه روی چه فیلدی کلیک شده از چه کدی استفاده میکنیم؟

[mehdi_mohamadi]

میتونید از کدهای زیر استفاده کنید
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, DBTables, Menus;
type
TForm1 = class(TForm)
Table1: TTable;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
PopupMenu1: TPopupMenu;
N2131: TMenuItem;
procedure DBGrid1CellClick(Column: TColumn);
procedure DBGrid1EditButtonClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
fname:string;
implementation
{$R *.dfm}
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
fname:=column.FieldName;
end;
procedure TForm1.DBGrid1EditButtonClick(Sender: TObject);
begin
showmessage(fname);
end;
end.