Форма по центру

[Shouldercannon]

Какими ещё можно способами кроме этого

Form1.Position:=poScreenCenter;

расположить форму по центру экрана?

[FileExists]

А чем вам этот способ не подходит

[jone]

Screen. тебе в помощь

[Shouldercannon]

Просто хочу иметь три варианта расположения формы на экране

procedure TForm1.sCBPositionChange(Sender: TObject);
begin
if sCBPosition.Text='Left' then begin
Form1.Left:=0;
Top:=Screen.WorkAreaHeight - height;
Exit;
end;

if sCBPosition.Text='Right' then begin
Left:=Screen.WorkAreaWidth - width;
Top:=Screen.WorkAreaHeight - height;
Exit;
end;

if sCBPosition.Text='Center' then begin
Form1.Position:=poScreenCenter;
end;
end;

Left и Raght нормально работают, а когда ставишь по центру то форма исчезает потом появляется и при этом значения, которые были в Edit стераются даже названия кнопок пропадают.

[jone]

хм

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

норм всё у меня нечего не исчезло форма встала по центру

[Shouldercannon]

Да в простом проекте работает нормально, а в моём косячит.

[jone]

if edit1.Text='Center' then Form1.Position:=poScreenCenter; попробуй хатя наврятли чтото изменится, у тебя чтото ещё походу форму тривожит..

[Shouldercannon]

Нет не помогает также может быть AlphaControls как-то мешает.

[Terran]

Shouldercannon, вот я для вас по быстренькому написал процедуру. Попробуйте её может подойдёт.

Procedure Center;
Var
H,W,Fh,Fw: Real;
Begin
H:=Screen.Height;
W:=Screen.Width;
H:=H/2;
W:=W/2;
Fh:=Form1.Height/2;
Fw:=Form1.Width/2;
H:=H-Fh;
W:=W-Fw;
Form1.Top:=Round(H);
Form1.Left:=Round(W);
End;

Procedure TForm1.FormCreate(Sender: TObject);
Begin
Center;
End;

[VVM]

а когда ставишь по центру то форма исчезает потом появляется и при этом значения, которые были в Edit стераются даже названия кнопок пропадают.

Можно попробовать принудительную перерисовку. А-ля Invalidate, Repaint, Refresh...