66问答网
所有问题
当前搜索:
delphi打开一个子窗体
delphi中
多文档
子窗体
的创建方法是怎样呢
答:
//如
窗体
不存在,则返回false,程序将创建窗体 result:=false;end end;//---
打开
操作人员设置窗体--- procedure TMAIN.N2Click(Sender: TObject);Var newform:Tcaozuorenyuan;begin if FindForm('操作人员设置')=false then begin newform:=Tcaozuorenyuan.Create(application);newform.Caption...
delphi
如何将
子窗体
的显示位置设置到主窗体的中间
答:
窗体
中放有timage控件,根据timage中图片的尺寸自动调整大小 参考实现:form.position :=poMainFormCenter Form
1
.Left := (Screen.Width - Form1.Width) div 2;Form1.Top := (Screen.Height - Form1.Height) div 2;
Delphi中子窗体
如何继承父窗体
答:
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, Form
1
{加上Form1};type TForm2 = class(TForm1{这里是Form1})procedure FormCreate(Sender: TObject);private { Private declarations } public { Public declarations } end;var Form2: TForm2;...
Delphi
如何实现MDI各
个子窗体
的最大化,还原互不影响
答:
delphi 的
MDI 程序,同一时刻只会
有一个子窗体
最大化得到显示,还原时,MDI会自动恢复到原来的位置和大小。如果是想对所有的子窗体最大化:procedure TMainForm.ToolButton12Click(Sender: TObject);var i: integer;begin for i := 0 to MainForm.MDIChildCount-1 do begin MainForm.MDICh...
delphi中
如何判断当前激活的是哪
一个子窗体
?
答:
最简单的方法: 在全局变量中建
一个
当前激活的
窗体
指针. hChildWnd : Pointer 在点击菜单项目的事件中, 使用代码if Assigned(hChildWnd) then TForm(hChildWnd).Free
delphi
捕获
子窗体
关闭事件
答:
由于应用程序就两个Form,第二个关了,又让第
一个
关,那么其实就是第二个
窗体
的按钮导致程序结束,那么直接为第二个窗体的Close事件加上Application.Terminate就OK。
delphi中
怎样在
子窗体
中引用主窗体中的自定义过程,求详细过程,我试了很...
答:
只要是在主窗体的interface区声明过程和函数就可以.在implementation区写过程代码.在主窗体interface的uses加上unit2; //unit2为
子窗体
在子窗体的implementation区加入uses unit
1
; //这里unit1为主窗体单元 然后就可以在子窗体单元里调用主窗体的过程或函数了 ...
delphi
子窗体
如何继承主窗体的方法
答:
子窗体
和主窗体 是继承关系么?如果是继承关系,只要主窗体任何区域声明
一个
变量 都可以被继承的.我觉得你说的不是继承吧?应该就是TForm1和TForm2这样的,那么只要在你主窗体的 Public区域声明一个变量,然后在子窗体里面直接Form1.XXX就行了.
有空
delphi子窗体
关闭触发父窗体做出一系列改变的操作,主要就是子窗...
答:
这里有个关键代码,a:=TForm2.Create(self); --创建新窗口, windows.SetParent(a.Handle,Panel
1
.Handle ); --设置新窗口的父对象是 Panel1,这样设置后,新创建出来的窗口就显示在Panel1中了。关闭
子窗体
要在 onClose 里设置 action:=caFree; --fsMdiform和fsMdiChild模式下,子窗口...
delphi中
如何判断当前激活的是哪
一个子窗体
?
答:
最简单的方法: 在全局变量中建
一个
当前激活的
窗体
指针. hChildWnd : Pointer 在点击菜单项目的事件中, 使用代码if Assigned(hChildWnd) then TForm(hChildWnd).Free
<涓婁竴椤
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜