怎么样用ado连接Access数据库?说详细一点,怎么在程序运行中创建动态窗体? ( 积分: 100 )

  • 主题发起人 主题发起人 格风
  • 开始时间 开始时间

格风

Unregistered / Unconfirmed
GUEST, unregistred user!
第一问
http://www.delphibbs.com/keylife/iblog_show.asp?xid=12431
第二问:是不是如下这样,我理解不太清楚你的意思
if not Assigned(KhDaGlform) then
begin
KhDaGlform:=TKhDaGlform.Create(Self);
KhDaGlform.top :=1;
KhDaGlform.ShowModal;
end else
KhDaGlform.BringToFront;
 
在设计时已创建好了窗体,再将她设置成为avirable forms ,点击按钮form显示,按钮事件怎样编写?
 
首先uses Form2;//假设你那个avirable forms叫form2
然后:
procedure TForm1.Button1Click(Sender: TObject);
var
myForm:TForm;
begin
try
myForm := TForm2.Create(Self);
myForm.ShowModal;
finally
myForm.Free;
end;
end;
 
动态创建窗体jianguobu已经回复了,支持。
在按钮事件里写show或showmodal不行吗,你既然是事先创建好的,要 uses 一下。
 
跟引用其他类或对象一样。
 
后退
顶部