16、SaveDialog1确认文件存不存在的办法？ 答： procedure TForm1.SaveDialog1CanClose(Sender: TObject; var CanClose: Boolean); begin if FileExists(SaveDialog1.FileName) then //如果文件已经存在 if MessageDlg('文件已经存在，保存吗？', mtConfirmation, [mbYes, mbNo], 0) <> mrYes then Button2.Click //如果选择了覆盖，则退出，否则，重新让用户选择文件 end; ============================================================================== 17、正确关闭一个MDI子窗口？ 答： Delphi中MDI子窗口的关闭方式默认为缩小而不是关闭，所以当你单击子窗口右上角的关闭按钮时会发觉该子窗口只是最小化，而不是你预期的那样被关闭。解决办法是在子窗口的OnClose事件处理过程中加入如下代码，示例： procedure ChildForm.OnClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; end; Delphi为一个Form的关闭行为指定了四种方式，分别是： caNone 禁止Form被关闭 caHide Form不被关闭，但是被隐藏。被隐藏的Form仍然可以被程序访问。 caFree Form被关闭，并且释放其占用的资源。 caMinimize Form被最小化而不是被关闭，这是MDI子窗口的默认关闭行为。 ============================================================================== 18、怎样记MDI子窗口不在母体运行时就被打开？ 答： 在project下的options中forms里面除了form1外，其余的移到右边的框里，然后在调用显示的按钮下编写语句，以form2调用为例： form2:=Tform2.create(self); form2.show; ============================================================================== 19、限制FORM的大小 答： 在FORM私有声明部分加上如下一行： procedure WMGetMinMaxInfo( var Message:TWMGetMinMaxInfo message WM_GETMINMAXINFO; 在声明部分加上如下几行: procedure TForm1.WMGetMinMaxInfo( var Message :TWMGetMinMaxInfo begin with Message.MinMaxInfo^ do begin ptMaxSize.X := 200; {最大化时宽度} ptMaxSize.Y := 200; {最大化时高度} ptMaxPosition.X := 99; {最大化时左上角横坐标} ptMaxPosition.Y := 99; {最大化时左上角纵坐标} end; Message.Result := 0; {告诉Windows你改变了 minmaxinfo} inherited; end; ============================================================================== 20、随机数生成法 答： Randomize; rn:=inttostr(random(9999)); rn1:=inttostr(random(9999)); ..... ============================================================================== 21、怎样把程序隐藏起来，在WINDOWS界面上没有显示？？ 答： 在application.run之前加入application.showmain:=false! ============================================================================== 22、怎样将一个form1.free的form1窗体重新显示？ 答： form2:=TForm2.Create(application); form2.Show; 如果你要创建的Form2窗体能嵌入一个Panel中，指定Parent: form2:=TForm2.Create(application); form2.Parent:=panel1; form2.Show; ============================================================================== 23、我想在bitbtn上设快捷按钮Esc，怎么办？ 答： procedure TForm1.BitBtn1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key=27 then application.Terminate; end; 设它的cancel属性为true就行了~~ ============================================================================== 24、什么叫做托盘区？ 答：
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
阅读：18032| 2023-10-27
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
阅读：9595| 2022-11-06
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
阅读：8141| 2022-11-06
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
阅读：8522| 2022-11-06
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
阅读：8425| 2022-11-06
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
阅读：9332| 2022-11-06
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
阅读：8390| 2022-11-06
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
阅读：7826| 2022-11-06
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
阅读：8379| 2022-11-06
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
阅读：7372| 2022-11-06
客服电话
APP下载
官方微信
请发表评论