返回列表 發帖

[Delphi] 視窗顯示方法

// 找出指定視窗的 Handle
hWindow := FindWindow('notepad',nil);

// 找出焦點視窗的 Handle
hWindow := GetForegroundWindow;


//指定視窗是否己顯示
IsWindowVisible(Handle) : Boolean

//本視窗的正常、最小及最大顯示
WindowState := wsNormal
WindowState := wsMinimized
WindowState := wsMaximized

//指定視窗的正常、最小及最大顯示
ShowWindow(Handle, SW_SHOWNORMAL)
ShowWindow(Handle, SW_SHOWMINIMIZED)
ShowWindow(Handle, SW_SHOWMAXIMIZED)
ShowWindow(Handle, SW_MAXIMIZE)

// 指定視窗不會受其它視窗遮掩 Always on Top
SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0, SWP_NOMOVE or SWP_NOSIZE);   


// 把焦點放在指定視窗
SetForegroundWindow(Handle);  

////本視窗的隱藏及顯示
form.Hide
form.Show

//找到視窗的坐標: P.Left, P.Top, P.Right, P.Bottom: integer
P: TRect
GetWindowRect(Handle, P);
Bill Tang     MSN:billtang@openplatform.com.hk
Openplatform Technology Co.,Ltd. 資訊坊科技有限公司  
無線工程施工、方案設計、無線產品、天饋材料、終端設備綜合供應商
Tel: 852-27491011  Fax: 852-81483532

返回列表