フォ−ムを画面中央に固定したい

解決

ウラガン 2003-09-26 19:43:59 No: 5023

お世話になっております。
フォ−ムを画面中央に表示し、固定したいのです。
(表示したフォ−ムを、マウスで移動できないようにしたいのです)

ご存知の方がいらっしゃいましたら、どうぞご教授ください。
よろしくお願いいたします。

Halbow 2003-09-26 20:09:52 No: 5024

Halbow です。

> フォ−ムを画面中央に表示し、固定したいのです。

  public
    procedure WMSysCommand(var Msg:TWMSysCommand);message WM_SYSCOMMAND;
  end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
Position := poScreenCenter;
end;

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
  if (Msg.CmdType = $F012) or (Msg.CmdType = $F010) then
    // 何もしない
  else
    inherited;
end;

ウラガン 2003-09-26 21:28:59 No: 5025

Halbowさん、ありがとうございます！
中央に表示して、画面を固定できました。
ありがとうございました！