扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
一、如何使Form在不同的聊环直率下显示出同样大小?
我喜欢把我的15英寸显示器置于800×600的模式下，因为这时的色彩和字体都比较好看，但是在这种模式下用Delphi设计的程序运行于别的机器上时往往由于分辨率不同、字体大小不同显得很难看，相信不少朋友和我一样遇到同样的情况，当然我们可以“强迫”别人也使用800×600的分辨率。那么有没有办法使自己的程序“专业化”一些，能够自适应屏幕的分辨率呢，答案是肯定的，因为Delphi 提供了ScaleBy这个过程，利用这个过程我们可以在FormCreate时轻易地控制form 的外观。实现的代码如下：
implementation
const
ScreenWidth:LongInt=800;
ScreenHeight:LongInt=600;
｛I designed my form in 800×600 mode.｝
｛$ R*.DFM｝
procedure TMainForm.FormCreate(Sender:TObject);
var
OldFormWidth:integer;
begin
Scaled:=TRUE;
if(Screen.width $#@60;$#@62; ScreenWidth)then
begin
OldFormWidth:=Width
Height:=longint(Height)*longint(Screen.Height)DIV ScreenHeight;
Width:=longint(Width)*longint(Screen.Width)DIV ScreenWidth;
ScaleBy(Screen.Width,ScreenWidth);
Font.Size:=(Width DIV OldFormWidth)*FontSize;
end;
end;
二、如何判断一个程序是否已在运行?
在某些时候我们通常需要自己编制的程序只可以有一份拷贝在运行，如何作到这一点呢?通常我们可以用GetWindowsWord获得窗口句柄，再用GetClassName获得并比较ClassName来达到目的。
...
Result:=true;
if GetWindowWord (Wnd, Gww_HINSTANCE)
=hPrevInst then
begin
GetClassName(Wnd,ClassName,30);
if StrIComp(ClassName,TApplication)=0 then
begin
TargetWindow^:=Wnd;
Result:=false;
end;
end;
...
后来我曾在网上看过一段关于此方面 得鳎樯芰肆硪恢址椒ǎ峭ü谀诖嬷薪⑵煊锉曛臼迪执斯δ艿模粤艘幌滦Ч芎茫咛宓墓碳旅娴某绦蛴胱⑹停?/p>
unit prevcode;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs
type
TForml=class(TForm)
procedure FormCreate(Sender:TObject);
private
｛Private declarations｝
public
｛Public declarations｝
end;
function DoIExist(WndTitle:String):Boolean;
var
Form1:TForm1;
implementation
｛$R*.DFM
function DoIExist(WndTitle:String):Boolean;
var
hSem:THandle;
hWndMe,hWnPrev:HWnd;
semNm,wTtl:Array［0..256］of Char;
beigin
Result:=False;
StrPCopy(semNm,SermaphoreName);
StrPCopy(wTtl,WndTitle);
hSem:=CreateSemaphore(nil,0,1,semNm);／／如果第一次运行则建立一个标志
／／检查这个标志是否存在
if(hSem $#@60;$#@62; 0)AND(GetLastError()=ERROR_ALREADY_EXISTS))then
begin
CloseHandle(hSem);
hWndMe:=FindWindow(nil,wTtl);／／获得当前运行的窗口句柄，改变标题
SetWindowText(hWndMe,zzzzzzz);／／这样才可以寻找其他instance
／／寻找这个视窗的instance,然后将它置于Z-order顶层
hWndMe:=FindWindow(nil,wTtl);
if(hWndMe $#@60;$#@62; 0)then
begin
if IsIconic(hWndMe) then ShowWindow (hWndMe, SW_SHOWNORMAL)
else
SetForegroundWindow(hWndMe);
end;
Result:=True;
end;
end;
procedure TForm.FormCreate(Sender:TObject);
begin
if DOIExist(Self.Caption)then
Halt;
end;
如果您非常迫切的想了解IT领域最新产品与技术信息，那么订阅至顶网技术邮件将是您的最佳途径之一。
京公网安备 11010802021500号