Question

delphi 我想弄一个这样的程序 就是form1上面有一个edit1，双击edit1弹出一个form2，form2上面有一个dbgrid

双击dbgrid，form2自动关闭了，然后edit1上显示的是dbgrid里的某个字段值。本人属于菜鸟，希望大家帮帮忙呀

Answer 1

Form1的Edit控件双击事件 (Edit控件很少用双击事件的...)
procedure TForm1.Edit1DblClick(Sender: TObject);
begin
Form2:= TForm2.Create(Application);
Form2.ShowModal;
end;

Form2的DBGrid双击事件
procedure TForm2.DBGrid1DblClick(Sender: TObject);
var
str_dbtoedit: string;
begin
str_dbtoedit:= Query1.FieldByname('你要的字段').AsString;
Form1.Edit1.Text:= str_dbtoedit;
Close;
end;

思路就是这样, 你稍微改一下就OK了

Answer 2

在edit1的双击事件中弹出form2窗口，在dbgrid的双击事件中赋值，并关闭窗口，可参考InputBox方法

Answer 3

你先动手写写呢？