نام فیلد

[spicirmkh]

سلام
من می خواهم تابع بنویسم که روی هر فیلدی که Click می کنم نام فیلد را نمایش بدهد
باتشکر

[mzjahromi]

کجا؟ رو کجای هر فیلد که کلیک می کنی اسمش رو بنویسه؟

[spicirmkh]

کجا؟ رو کجای هر فیلد که کلیک می کنی اسمش رو بنویسه؟
سلام

می خواهم برنامه Search بنویسم می خواهم وقتی روی فیلد هستیم نام فیلد بگویید چی هست
یعنی تابع باشد که مشخص کند که نشانگر روی کدام فیلد قرار دارد

یا روی فیلد Dblclick کردم بگویید نام فیلد را

[m-khorsandi]

درود

منظورتون Click روی DBGrid هست!؟

[mzjahromi]

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
ShowMessage(Column.FieldName);
end;

[mzjahromi]

اینم بدون کلیکش


procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ShowMessage(DBGrid1.SelectedField.FieldName);
end;

[spicirmkh]

سلام

فیلد معمولی مثل DBEdit چطور می شود فهمید

[mzjahromi]

این که دیگه خیلی ساده هست


procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ShowMessage(DBEdit1.Field.FieldName);
end;

[spicirmkh]

این که دیگه خیلی ساده هست


procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ShowMessage(DBEdit1.Field.FieldName);
end;

مشکل اینجا است که روی فیلد DBEDIT1 هستم اما نمی خواهم خودم مشخص کنم که کدام فیلد هستم می خواهم سیستم بگوید مثل

Formmain.selectfiles.fieldname

[mzjahromi]

اینجوری


procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if ActiveControl.ClassType=TDBEdit Then
ShowMessage(TDBEdit(ActiveControl).Field.FieldName );
end;

[spicirmkh]

اینجوری


procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if ActiveControl.ClassType=TDBEdit Then
ShowMessage(TDBEdit(ActiveControl).Field.FieldName );
end;


دستت درد نکنه اینجوری درسته