Delphi使用心得

　　Delphi是Borland公司推出的一个可视化、面向对象的快速应用程序开发工具，继16位的1.0版本后，又推出了32位的2.0、3.0版本，很受开发人员的欢迎。下面就将我在学习Delphi过程中的一些心得奉献给大家，希望能给您带来帮助和启示。

　　一、如何使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;

...

　　后来我曾在网上看过一段关于此方面 得鳎??樯芰肆硪恢址椒ǎ?峭ü?谀诖嬷薪?⑵煊锉曛臼迪执斯δ艿模?粤艘幌滦Ч?芎茫?咛宓墓?碳?旅娴某绦蛴胱⑹停?

　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;

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有