haiou327’blog

form show 和form.ShowModal的区别show 是以普通模式显示。非模态窗口，关闭时窗体并没有释放showmadle 是以模态的模式显示，模态窗口， 即它显示后，别的窗口无法获得焦点。 procedure TFrmMain.btnModelClick(Sender: TObject);begin  FrmShow := TFrmGroundIn

下面包括两个类，一个是普通窗体类，一个是其子类对话框型窗体类。在实际应用过程中只要自己创建的窗体类继承自以上两个类中的一个，例如 TForm1 = class(TfdForm)，则不需添加任何源码，设计出窗体会自动调整其上控件的尺寸，以适应不同的屏幕分辨率。经测试代码可用！uMyClassHelpersunit uMyClassHelpers;{实现窗体自适应调整尺寸以适应不同屏

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls;type TForm1 = class(TForm) Button1: TButton;

Delphi中易混淆的概念一、Owner和Parent的区别： 　　Parent属性是指构件的包容器，构件只能在此范围内显示和移动。举例子如下： 　　(1)在Form1的窗体上，放一个Panel1,并将Panel1拉大， 　　(2)在Panel1上放一Button1； 　　(3)在Form1上放一Button2。 　　现在如果移动Panel1,则Butt

function BringWindowToTopEx(hWnd: HWND): Boolean;begin if IsIconic(hWnd) then ShowWindow(hWnd, SW_RESTORE); if GetForegroundWindow <> hWnd then SetForegroundWindow(hWnd);//enabled //B

var hform: Cardinal;begin hForm := FindWindow('SciCalc', nil); //计算器 if hform <> 0 then //计算器是否启动 begin if IsIconic(hform) then //是否最小化 begin SetFor

procedure TMainForm.FormShow(Sender: TObject); var hwndOwner: HWnd; begin hwndOwner := GetWindow(Handle, GW_OWNER); ShowWindow(hwndOwner, SW_HIDE); // For Windows 2000, additionally call