动态生成的组件怎么加事件!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!(50分)

fhuibo · 2008-02-13

我在窗体上动态生成了 Edit 和 ComboBox 组件，请问怎么给动态的Edit加 OnDblClick事件和动态的给ComboBox 加 OnChange 事件!!!!!!!!!!!!谢谢！！！！！

Godfear · 2008-02-13

edit.ondblclick:=myclick; 然后过程myclick进行判断和操作

fhuibo · 2008-02-13

Godfear 大哥不行呀，能不能具体点 myclick 是过程吗？

liyinwei · 2008-02-13

type   TForm1 = class(TForm)     Edit1: TEdit;     procedure FormCreate(Sender: TObject);   private     procedure DlClickEvent(Sender: TObject);     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.DlClickEvent(Sender: TObject); begin //........... end; procedure TForm1.FormCreate(Sender: TObject); begin   Edit1.OnDblClick := self.DlClickEvent; end;

未能注册 · 2008-02-13

published  procedure DlClickEvent(Sender: TObject);

xcplates · 2008-02-13

贴一段我给动态生成的菜单响应单击事件的代码，希望对你有帮助： 声明并定义： procedure MenuItemClick(Sender: TObject); procedure Txtsz.MenuItemClick(Sender: TObject); begin   ADOQTFreeEMail.First;   ADOQTFreeEMail.MoveBy((Sender as TMenuItem).tag);   ShellExecute(Handle, 'open', PChar(ADOQTFreeEMail.FieldByName('URL').AsString), nil, nil, SW_SHOW); end; //生成：   ADOQTFreeEMail.Open;   SetConfig;   if ADOQTFreeEMail.RecordCount> 0 then   begin     PopupMenu1.Items.Clear;     for i:=0 to ADOQTFreeEMail.RecordCount-1 do     begin       Item:=TMenuItem.Create(NIL);       Item.Caption:=ADOQTFreeEMail.FieldByName('ServerName').AsString;       Item.OnClick:=MenuItemClick;//主要是一这句       Item.Tag:=i;       PopupMenu1.Items.Add(Item);       ADOQTFreeEMail.Next;     end;   end;

Godfear · 2008-02-13

楼上正解！ 在组件create的时候，对组件命名也很重要，对与动态事件的判断有帮助！ MyClick是自定义过程， procedure MyClick; begin   if (sender as TEdit).name='edit1' then   begin     edit1.text:='aa';   end   else if (sender as TEdit).name='edit2' then   begin     edit2.text:='bb';   end;   ....... end; 这样就解决了！

fhuibo · 2008-02-13

能不能在procedure DlClickEvent(Sender: TObject); 带个参数 例如：procedure DlClickEvent(xgdm: string;Sender: TObject); 但是这样的话在调用的时候报错

liyinwei · 2008-02-13

不能。

fhuibo · 2008-02-13

能不能在procedure DlClickEvent(Sender: TObject); 带个参数 例如：procedure DlClickEvent(xgdm: string;Sender: TObject); 但是这样的话在调用的时候报错 那如果需要传一个参数的话怎么做！！！谢谢！！！

liyinwei · 2008-02-13

通过 Sender 或者用全局变量。

fhuibo · 2008-02-13

我的代码： procedure TForm_Add.FormShow(Sender: TObject); var   Edit1: array of TEdit;   Label1: array of TLabel;   i,j: integer; begin   with ADOQPb do   begin     Close;     SQL.Clear;     SQL.Text := 'select * from trylb where typeid=''1''';     Open;     rylb := FieldByName('rylbid').AsString;   end;   Enbmc := 'A001';   i := 0;   j := 0;   with ADOQAdd do   begin     Close;     SQL.Clear;     SQL.Text := 'SELECT * FROM TGSSZ WHERE ENBMC='''+Enbmc+''' AND RYLB='''+rylb+''' AND SFXS=''1'' ORDER BY XSSX';     Open;     setlength(Edit1,RecordCount);     setlength(Label1,RecordCount);     while not eof do     begin       Edit1 := TEdit.Create(Self);       Label1 := TLabel.Create(Self);       Edit1.Text := '';       Label1.Caption := FieldByName('cnzd').AsString;       if i <= 20 then       begin         j := i+1;         Edit1.Left := 100;         Label1.Left := 100-Label1.Width-10;       end;       if (i>20) and (i<=40) then       begin         j := i - 20;         Edit1.Left := 320;         Label1.Left := 320-Label1.Width-10;       end;       if (i > 40) and (i <= 60) then       begin         j := i-40;         Edit1.Left := 540;         Label1.Left := 540-Label1.Width-10;       end;       Edit1.Top := j*25;       Label1.Top := j*25+5;       Edit1.Parent := Form1;       Label1.Parent := Form1;       if FieldByName('xgdm').AsString <> '' then       begin         Edit1.Color := clred;         Edit1.OnDblClick := getdd;       end;       i := i + 1;       Next;     end;   end; end; 生成了好多 EDIT 有一部分Edit需要有双击事件，打开一个窗体（新窗体里有TreeView），然后给Edit赋值，因为参数（FieldByName('xgdm').AsString ）不一样打开的窗体的内容（TreeView显示的内容）也不一样,然后通过双击 TreeView 把TreeView 节点内容传给相应的Edit

liyinwei · 2008-02-13

在 getdd 里把 Edit 的指针的指针传给新打开的窗口。

fhuibo · 2008-02-13

在 getdd 里把 Edit 的指针的指针传给新打开的窗口。 不能带参数怎么传呀？

liyinwei · 2008-02-13

新窗体加入一个属性   public     property MyEdit: TEdit read FMyEdit write SetMyEdit; 然后 getdd 事件 procedure TForm1.getdd(Sender: TObject); begin   Form2 := TForm2.Create(self);   try     Form2.MyEdit := TEdit(Sender);     Form2.ShowModal;   finally     Form2.Close;     Form2.Free;   end; end;

Godfear · 2008-02-13

sender啊，sender就是edit控件本身啊！ var abc:string;         //全局变量 procedure getdd; begin   if (sender as TEdit).name='edit1' then   begin     abc:=(sender as TEdit).name;        //根据     //然后用变量newfrm对新窗体显示进行处理     ......     newform.show;   end end; //里面处理的过程是个例子，新窗口打开显示的内容可以用全局变量来处理，自己也是半桶水，不过问题应该能够解决的！

fhuibo · 2008-02-13

谢谢！liyinwei 再问一下我 FieldByName('xgdm').AsString 值怎么传到下一页，每个Edit的双击事件的时候，FieldByName('xgdm').AsString 是不一样的。

liyinwei · 2008-02-13

"传到下一页"是什么意思？

fhuibo · 2008-02-13

FieldByName('xgdm').AsString  就是怎么传到 Form2里

liyinwei · 2008-02-13

就跟传 Edit 进去的方法是一样的。 property Value: String read FValue write SetValue;     Form2.MyEdit := TEdit(Sender);     Form2.Value := ADOQAdd.FieldByName('xgdm').AsString;     Form2.ShowModal;

动态生成的组件怎么加事件!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!(50分)

fhuibo

Unregistered / Unconfirmed

Godfear

Unregistered / Unconfirmed

fhuibo

Unregistered / Unconfirmed

liyinwei

Unregistered / Unconfirmed

未能注册

Unregistered / Unconfirmed

xcplates

Unregistered / Unconfirmed

Godfear

Unregistered / Unconfirmed

fhuibo

Unregistered / Unconfirmed

liyinwei

Unregistered / Unconfirmed

fhuibo

Unregistered / Unconfirmed

liyinwei

Unregistered / Unconfirmed

fhuibo

Unregistered / Unconfirmed

liyinwei

Unregistered / Unconfirmed

fhuibo

Unregistered / Unconfirmed

liyinwei

Unregistered / Unconfirmed

Godfear

Unregistered / Unconfirmed

fhuibo

Unregistered / Unconfirmed

liyinwei

Unregistered / Unconfirmed

fhuibo

Unregistered / Unconfirmed

liyinwei

Unregistered / Unconfirmed

Similar threads