delphi怎样让窗口在屏幕上居中

[Powertion]

delphi怎样让窗口在屏幕上居中

[hydonlee]

唉....

[madyak]

Form1.Position:=poDesktopCenter;

[阿发伯]

Form1.Position:=poScreenCenter;

[wudi_1982]

Form1.Position:=poDesktopCenter;

[kugoo_2006]

...........

[tobat]

Form1.Position:=poDesktopCenter;
看看书，最基本的属性设置！

[renweimin]

Form1.Position:=poScreenCenter;

[woaichenyu]

Form1.Position:=poScreenCenter;

[lihuasoft]

最后地回答一个问题:

显示器的显示屏下方都有一排按钮，可以通过调整它们，使显示屏上的图像位于显示屏的中央。嘎嘎~~~ ^_^

再见了，CSDN。

[阿发伯]

to lihuasoft(学习低调做人)

怎么了，准备潜水了？

[lihuasoft]

是,大哥.
自己觉得要好好学习了,不能这样泡网打发时间了

[lihuasoft]

晕...上面算是又回答了一个“问题”.. ^_^

[阿发伯]

有时间还是可以上来看看，可开拓视野。有什么事可发邮件给我，[e-mail]，CSDN发短信也行

[lihuasoft]

太好了,谢谢阿发伯大哥!

[guifuli]

给楼主一个完整的代码:

unit ufrmSysPubMessage;

interface

uses
Windows, Forms, Messages, Classes, ExtCtrls, Controls, StdCtrls;

type
TfrmSysPubMessage = class(TForm)
Image1: TImage;
lblMessage: TLabel;
procedure FormCreate(Sender: TObject);
protected
IconID: PChar;
public
procedure WndProc(var Msg: TMessage); override;
procedure ShowMessage(AMsg: string);
end;

implementation

{$R *.DFM}

{ TfrmMessageForm }
procedure TfrmSysPubMessage.ShowMessage(AMsg: string);
var
TempWidth : Integer;
begin
lblMessage.Caption := AMsg;
Application.ProcessMessages;
//调整窗体宽度
TempWidth := lblMessage.Width + lblMessage.Left + Image1.Left;
if TempWidth < 310 then
TempWidth := 310;
Width := TempWidth;
if not Visible then
Show;
Application.ProcessMessages;
FormStyle := fsStayOnTop;
end;

procedure TfrmSysPubMessage.FormCreate(Sender: TObject);
begin
inherited;
IconID := IDI_ASTERISK;
Image1.Picture.Icon.Handle := LoadIcon(0, IconID);
//使本窗体始终处于最上面，以免其它窗体挡住它
SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE);
end;

procedure TfrmSysPubMessage.WndProc(var Msg: TMessage);
begin
//屏蔽Alt+F4
if Msg.wParam <> SC_CLOSE then
inherited;
end;

end.