● DELPHI使用心得 - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: FDISK (FDISK-C), 信区: Visual
标  题: DELPHI使用心得
发信站: BBS 荔园晨风站 (Sat Jan  1 09:14:29 2000), 转信

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 <> 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,
Dialog;
    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 <> 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 <> 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;

--

※ 来源:·BBS 荔园晨风站 bbs.szu.edu.cn·[FROM: 192.168.1.241]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店