怎么动态生成一个控件呀,比如说我要运行的时候单击
一个按钮从而生成另外一个按钮,
一个按钮从而生成另外一个按钮,
解决方案 »
- 求教Delphi ADODataset连接Access 数据库的表和查询错误!!
- 趁夜深人静,偷偷发个笑话
- 求解:关于WinSock的C/S服务
- (菜鸟级问题)怎么实现用Label控件拖动窗口?拖动完了不能激发OnClick事件
- CxGRID中一个单元格内能不能显示多行
- 还在战斗的程序员们,晚上好!!问一个入门问题啦,别走开!!!
- 一个小问题
- 高手进来,只要能解决问题,不吝惜分数~
- 关于Table的数据写回硬盘的问题50分
- !!!!一个白送分的题:关于ado的c/s配置问题!!!!
- 能否变颜色?Application.MessageBox('对不起,您无权进入此系统!!', '系统提示', MB_OK) ;
- 怎么合并Excel的单元格
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure Myclick(Sender:TObject);
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
b:tbutton;
begin
b:=tbutton.create(form1);
b.Parent:=form1;
b.Caption:='123';
b.onClick:=form1.myclick;
end;procedure TForm1.MyClick(Sender: TObject);
begin
showmessage('ok');
application.Terminate;
end;太多这样的问题了,请你多搜索一下再问吧。
btn :TButton;
begin
btn := TButton.Create(self);
btn.parent := Button1.Parent;
btn.Top:=?
btn.Left:=?
btn.Width:=?
btn.Height:=?
end
是不是我想生成一个控件(如ADDOQuery)的时候,窗体上必须先有一个这样的控件呢
btn :TButton;
begin
btn := TButton.Create(self);
btn.parent := Button1.Parent;
btn.Top:=?
btn.Left:=?
btn.Width:=?
btn.Height:=?
end
var
btn :TButton;不要做局部变量呀,定义在这里var
form1:Tform;
btn:Tbutton;
var
btn :TButton;//就在这里写出来比如 test:Tedit ....
begin
btn := TButton.Create(self);
btn.parent := Button1.Parent;
......