procedure TShow1Form.Button1Click(Sender: TObject);
begin
TestForm := TTestForm.Create(Application);
TestForm.Show;
end;
1.如何实现，弹出的窗体，用户无法移动？
2.弹出子窗体后，如果没有关闭的话，主窗体不能进行任何操作。
-
这是现在的“弹出窗体”的代码：
procedure TShow1Form.Button1Click(Sender: TObject);
begin
TestForm := TTestForm.Create(Application);
TestForm.Show;
end;
1.如何实现，弹出的窗体，用户无法移动？
2.弹出子窗体后，如果没有关闭的话，主窗体不能进行任何操作。展开阅读全文
-
等级
本版专家分：41820勋章
-
-
红花
2012年10月 Delphi大版内专家分月排行榜第一
2012年9月 Delphi大版内专家分月排行榜第一
2012年8月 Delphi大版内专家分月排行榜第一
2012年7月 Delphi大版内专家分月排行榜第一
2012年6月 Delphi大版内专家分月排行榜第一
2012年5月 Delphi大版内专家分月排行榜第一
2011年12月 Delphi大版内专家分月排行榜第一
-
-
黄花
2012年4月 Delphi大版内专家分月排行榜第二
2012年3月 Delphi大版内专家分月排行榜第二
2012年1月 Delphi大版内专家分月排行榜第二
2011年11月 Delphi大版内专家分月排行榜第二
-
- 蓝花 2012年2月 Delphi大版内专家分月排行榜第三
-
-
TestForm.ShowModal;
-
等级
本版专家分：0勋章
-
- 签到王者 累计签到获取，不积跬步，无以至千里，继续坚持！
-
-
可以，已经解决了问题2。。。
还剩问题1咯。。。
-
等级
本版专家分：11651 -
最大化。用户就不能移动了。
-
等级
本版专家分：41820勋章
-
-
红花
2012年10月 Delphi大版内专家分月排行榜第一
2012年9月 Delphi大版内专家分月排行榜第一
2012年8月 Delphi大版内专家分月排行榜第一
2012年7月 Delphi大版内专家分月排行榜第一
2012年6月 Delphi大版内专家分月排行榜第一
2012年5月 Delphi大版内专家分月排行榜第一
2011年12月 Delphi大版内专家分月排行榜第一
-
-
黄花
2012年4月 Delphi大版内专家分月排行榜第二
2012年3月 Delphi大版内专家分月排行榜第二
2012年1月 Delphi大版内专家分月排行榜第二
2011年11月 Delphi大版内专家分月排行榜第二
-
- 蓝花 2012年2月 Delphi大版内专家分月排行榜第三
-
-
可以改变窗体大小吗,即允许通过鼠标在边角上拉大或者缩小窗体吗?
-
等级
本版专家分：8853勋章
-
- GitHub 绑定GitHub第三方账户获取
-
- 红花 2012年11月 Delphi大版内专家分月排行榜第一
-
-
黄花
2013年2月 Delphi大版内专家分月排行榜第二
2013年1月 Delphi大版内专家分月排行榜第二
-
-
蓝花
2013年7月 Delphi大版内专家分月排行榜第三
2012年10月 Delphi大版内专家分月排行榜第三
2012年9月 Delphi大版内专家分月排行榜第三
-
-
testform不处理WM_MOVE就可以了
-
等级
本版专家分：0勋章
-
- 签到王者 累计签到获取，不积跬步，无以至千里，继续坚持！
-
-
不允许改变大小
-
等级
本版专家分：0勋章
-
- 签到王者 累计签到获取，不积跬步，无以至千里，继续坚持！
-
-
哪里处理呢？有属性可以直接设置吗？
-
等级
本版专家分：41820勋章
-
-
红花
2012年10月 Delphi大版内专家分月排行榜第一
2012年9月 Delphi大版内专家分月排行榜第一
2012年8月 Delphi大版内专家分月排行榜第一
2012年7月 Delphi大版内专家分月排行榜第一
2012年6月 Delphi大版内专家分月排行榜第一
2012年5月 Delphi大版内专家分月排行榜第一
2011年12月 Delphi大版内专家分月排行榜第一
-
-
黄花
2012年4月 Delphi大版内专家分月排行榜第二
2012年3月 Delphi大版内专家分月排行榜第二
2012年1月 Delphi大版内专家分月排行榜第二
2011年11月 Delphi大版内专家分月排行榜第二
-
- 蓝花 2012年2月 Delphi大版内专家分月排行榜第三
-
-
提供一个方法，不过还不如用bsNone窗体
procedure TForm1.FormCreate(Sender: TObject);
var
_Menu:HMENU;
begin
BorderIcons:=BorderIcons-[biMaximize];
_Menu:=GetSystemMenu(Handle,False);
DeleteMenu(_Menu,SC_Move,MF_BYCOMMAND);
DeleteMenu(_Menu,SC_Size,MF_BYCOMMAND);
end;
-
等级
本版专家分：8853勋章
-
- GitHub 绑定GitHub第三方账户获取
-
- 红花 2012年11月 Delphi大版内专家分月排行榜第一
-
-
黄花
2013年2月 Delphi大版内专家分月排行榜第二
2013年1月 Delphi大版内专家分月排行榜第二
-
-
蓝花
2013年7月 Delphi大版内专家分月排行榜第三
2012年10月 Delphi大版内专家分月排行榜第三
2012年9月 Delphi大版内专家分月排行榜第三
-
-
TTestForm=class(TForm)
protected
procedure WndProc(Msg:TMessage);override;
//.....
end;
implementation
procedure TTestForm.WndProc(Msg:TMessage);
begin
if Msg.Message=WM_MOVE then exit;
inherited;
end;
-
等级
本版专家分：0勋章
-
- 签到王者 累计签到获取，不积跬步，无以至千里，继续坚持！
-
-
bsNone窗体，考虑过，但是，就得写个button之类的关闭窗体了。。。
- delphi自动弹出式提示窗体
delphi自动弹出式提示窗体，可以像QQ一样弹出提示框的哦
- delphi 在DLL中添加窗体
在DLL工程中新建一个FORM窗体.在窗体中加入如下代码: 1.首先需要再 implementation 之前声明下以下函数. 1 procedure SynApp(App:THandle);stdcall; 2 3 begin 4 5 Application.Handle := App ...
- 窗口中的弹出式右键菜单-delphi源码.rar
窗口中的弹出式右键菜单-delphi PopupMenu源码, procedure TForm1.Button1Click(Sender: TObject); var Poin:TPoint; begin Poin := Point(Button1.Left,Button1.Top Button1.Height); Poin := ...
- delphi启动程序如何立即打开一个窗体？
delphi启动程序时立即打开一个窗体 使用系统的OnActivate事件 procedure TmainFrame.FormActivate(Sender: TObject); begin ui.loadUi(7,nil); end;
- Delphi Webbrowser中自动点击Alert弹出窗口中的按钮
function CallBackProc(H, HMainForm: hwnd): Boolean; stdcall; var hChild: hwnd; begin Result := True; if GetParent(H) = HMainForm then begin hChild := FindWindowEx(H, 0, PChar('Button'), PChar('OK'));...
- delphi 弹出选择目录窗口
if not SelectDirectory( '请选择输出文件路径','/',directory) then begin Exit; end; ...使用SelectDirectory函数注意要在use下引入FileCtrl。...第一个参数是提示信息，第二个参数是默认路径，第三个参数是你...
- delphi按钮弹出新窗口，添加的数据在返回到第一个窗口的数据库中
 点击添加之后会跳出form2窗口，在form2中写入数据之后，数据会添加到form1的数据库中
- Delphi显示窗体的“模式方式”与“非模式方式”
“模式窗体”可以简单的理解，用户必须在完成该窗体上的操作或关闭窗体后才能返回打开此窗体的窗体。 From.ShowDialog()方法 以模式方法显示窗体的，在被创建的窗体关闭之前它都不会返回。通过显示地调用Close方法...
- Delphi 关闭反复弹出的窗体
用Visual Studio打开解决方案的过程中，如果解决方案所引用的工程路径配置不正确，则会反复弹出Visual Studio确认窗口，如果解决方案包含成百上千个工程，那么用鼠标点确认会很浪费时间。于是编写了一个自动关闭...
- Delphi Dll插件窗体中遇到的各种问题
最近在公司写一个外壳程序,调用DLL插件把FORM嵌入... 以下列出的问题及解决方法仅针对我写的程序(DLL插件把FORM嵌入到EXE中的一个PANEL中),和自己的解决方法. 从遇到的问题看出,DELPHI封装了太多的东西,有时候直
- Delphi里面弹出对话框的方法
1.procedure ShowMessage(const Msg: string); 单元：Dialogsor QDialogs 例子：showmessage( 'hello '); 2.function MessageBox(const Text, Caption: PChar; Flags: Longint =...
- Delphi如何设置主窗体
Delphi在默认情况下认为第一个建立的窗体就是主窗体，并且默认情况下是从主窗体开始启动，我们可以选择主菜单的“Prjoect / Options”（工程 / 选项）菜单，在弹出的对话框中点击“Forms”选项卡，在里面的“Main ...
- Delphi 主窗体Panel中嵌入DLL窗体功能详细源码
自从我的博客被尘封了五年之久，终于选择在今天以主程序嵌入DLL窗体架构的源码为礼物送给大家，希望资源与大家共享，共祝未来的Delphi能够走的更远。 由于现在技术的日益发达，各种软件的界面日益美化，很...
- Delphi7隐藏主窗体同时不出现在任务栏
Delphi7隐藏主窗体同时不出现在任务栏
- delphi登录窗口与主窗口的显示先后。
1、登录窗口form1,主窗口form2,在form1的create中加下if form2.showmodal <> mrok then Application.Terminate;2、在form1的确定按钮中加入 F_main.Show; F_dl.Hide;...
- 求解delphi7 新建窗口弹出出错
procedure Tfrm_main.dbbl_readClick(Sender: TObject); var frm_rfidread:Tfrm_rfidread; begin frm_rfidread.Create(nil); frm_rfidread.ShowModal; frm_rfidread.Free;...Access violation at address 0088862b ...
- [Delphi]将一个窗体Form1嵌入另一个窗体Form2
在做较大功能模块时常常需要调用已经写好的页面, 对于某些诸如向导,步骤式的模块每次弹出页面是不太友好的, 因此我尝试将已有的页面嵌入新做的页面中.以下为部分代码(由于项目保密, 在原工程上有删减),只列出实现...
- delphi DLL数据及窗体调用
DLL工程文件代码： ``` ...以上在运行程序时没有错误，数据也正常显示，但是关闭调用的DLL内部窗体后，再次通过主程序调用就出现了Read of Address 00000008错误，请高手指点这是咋回事？
- delphi禁止webbrowser弹出窗口或者脚本错误
delphi禁止webbrowser弹出窗口或者脚本错误webbrowser1.silent:=true; //屏蔽脚本错误procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);beginCancel:=True; ...
- Delphi两个窗体切换导致第一个窗体不可点击
本人java程序员，单位需要...问题：我的主窗体会有一个查看明细按钮，单击弹出明细窗体，但是当明细窗体关闭之后，我的主窗体就不能点击了，会发出不能点击得提示音，我理解为被锁，但是也不知道用什么方法解锁。求解答
- delphi获得进程的窗口句柄的三种方法
本文主要跟大家介绍Delphi中获取其它进程的窗口句柄，在Delphi中获取其它进程的窗口句柄，绝大部分人首先想到的会使用：FindWindow或者用GetWindow来遍历查找，如： handle := FindWindow(nil,PChar('窗口的标题'...
- Delphi使程序的窗口出现在最前面并激活
//使程序的窗口出现在最前面并激活 var pt, OldPt, NewPt: TPoint; begin //判断Application是否最小化，而不是主窗口的Handle, 使用Restore来还原 if IsIconic(Application.Handle) then Application...
- delphi 自定义弹出密码输入框
function GetAveCharSize(Canvas: TCanvas): TPoint; {$IF DEFINED(CLR)} var I: Integer; Buffer: string; Size: TSize; ... SetLength(Buffer, 52);... for I := 0 to 25 do Buffer[I + 1] := Chr(I + O...
- delphi 中继承父窗体
弹出创建的窗体Name： 添加继承窗体： 选择要继承的父窗体： program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2}, Unit3 in 'Unit3.pas' {Form3}; {$R
- 定时自动关闭的弹出式对话框（全套delphi7源码）
这是一整套自动延时关闭对话框的演示源码，可实现定时自动关闭即将弹出的对话框， 我在其中演示了三种延时自动关闭的对话框： （1）延时9秒关闭ShowMessage （2）延时8秒关闭MessageBox （3）延时8秒关闭自定义...
- Delphi继承窗体TForm
Form，新建一个form，在form的单元文件中修改 TForm1 = class(TForm) 为； TForm1 = class(TFatherForm) //TFatherForm为被继承的窗体 不要忘记 uses TFatherForm的单元文件， 2.再在For...
- delphi中让窗口最前端显示
1. //置前 SetWindowPos(form1.handle,HWND_TOPMost,form1.left,form1.top,form1.width,form1.heigth,0); //取消置前 ...SetWindowPos(form1.handle,HWND_NOTOPMost,form1.left,form1.top,form1.width,form1....
- delphi窗体继承
1.手工修改窗体继承时，怎样让其父类的所有控件显示（在设计时）？ File -> New -> Form，新建一个form，在form的单元文件中修改 TForm1 = class(TForm) 为； TForm1 = class(TFatherForm) //T
- Delphi中的窗体创建与销毁
Delphi中的窗体，有模式窗体与非模式窗体两种。两种窗体的调用方式不同，模式窗体使用ShowModal显示，非模式窗体使用Show显示。当显示模式窗体的时候你是不能操作本程序的其他窗体的，你不能把焦点从模式窗体转到...
- 七夕情人节表白HTML源码(两款)
七夕节、情人节表白用的HTML源码(两款)