procedure TForm1.Button1Click(Sender: TObject);
begin
//点击鼠标后弹出
popupmenu1.Popup(self.Left + Button1.Left, self.Top + button1.Top + 2 * button1.Height);
end;
[......]
十二 182008
- 2008/12/18
- Posted by raio at 下午 3:09
- No Responses
- 编程小技 [代码]
- Delphi 下拉菜单 popupmenu