Delphi 怎么能使在打开form1后 我点击别的地方 form1不会隐藏
我也不知道此时是隐藏还是关闭?要求是不能用showmodal这样的话就不能再点别的了我只想form1不关闭不隐藏procedureTFrm_Main_qt.N24Clic...
我也不知道此时是隐藏还是关闭?
要求是 不能用showmodal 这样的话就不能再点别的了
我只想form1不关闭不隐藏
procedure TFrm_Main_qt.N24Click(Sender: TObject);
begin
if not assigned(frm_hykcz) then
Frm_hykcz := TFrm_hykcz.Create(self);
Frm_hykcz.Left :=Frm_Main_qt.Image1.Left ;
Frm_hykcz.Width :=Frm_Main_qt.Image1.Width div 2;
Frm_hykcz.top :=Frm_Main_qt.Image1.Top + Frm_Main_qt.ToolBar1.Height +frm_main_qt.Bevel1.Height ;
Frm_hykcz.Height :=Frm_Main_qt.Image1.Height ;
Frm_hykcz.Show;
if not assigned(frm_czktk) then
Frm_czktk := TFrm_czktk.Create(self);
frm_czktk.Show;
end; 展开
要求是 不能用showmodal 这样的话就不能再点别的了
我只想form1不关闭不隐藏
procedure TFrm_Main_qt.N24Click(Sender: TObject);
begin
if not assigned(frm_hykcz) then
Frm_hykcz := TFrm_hykcz.Create(self);
Frm_hykcz.Left :=Frm_Main_qt.Image1.Left ;
Frm_hykcz.Width :=Frm_Main_qt.Image1.Width div 2;
Frm_hykcz.top :=Frm_Main_qt.Image1.Top + Frm_Main_qt.ToolBar1.Height +frm_main_qt.Bevel1.Height ;
Frm_hykcz.Height :=Frm_Main_qt.Image1.Height ;
Frm_hykcz.Show;
if not assigned(frm_czktk) then
Frm_czktk := TFrm_czktk.Create(self);
frm_czktk.Show;
end; 展开
3个回答
展开全部
那就直接 show 就行了,不要后面的那个 modal 就可以了。
更多追问追答
追问
但是我在点击主窗体上的button时 form1 就没了 怎么回事呢?
追答
我怎么知道怎么回事。你又不把代码贴出来,谁知道你做了什么事情,为什么会这样。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
splashchaos 说的对 你就是想和qq似的置顶嘛
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询