Текст

← →
Ламерок (2005-08-10 23:42) [0]

Как сделать чтобы Label отображался по центру экрана независимо от разрешения?

← →
jack128 © (2005-08-10 23:58) [1]

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

← →
Ламерок (2005-08-11 00:03) [2]

У меня форма на весь экран и размер её не изменяется.

← →
jack128 © (2005-08-11 00:10) [3]

Ламерок (11.08.05 0:03) [2]
У меня форма на весь экран и размер её не изменяется.
Ну-ну...
Label1.Anchors := [];

← →
Ламерок (2005-08-11 00:17) [4]

Не получилось!
Вообще текста не видно!
Может есть другой способ?

← →
Наиль © (2005-08-11 00:19) [5]

Кажется, если WindowState формы задавать заранее, то [3] работает глючно.
Если задавать в onCreate, то нормально.

← →
Ламерок (2005-08-11 00:23) [6]

Таже самая фигня!

← →
Наиль © (2005-08-11 00:35) [7]

Заранее ставишь label в центр. Делаешь инспекторе WindowState=wsNormal и Label1.Anchors=[].
А в FormCreate (чтобы уж наверняка) пишешь WindowState:=wsMaximized;
Должно получиться.

Когда я первый раз делал такое то сделал немного тупо но сработало.
label1.left:=round(form1.width-label1.width)/2
Аналогично для высоты

> label1.left:=round(form1.width-label1.width)/2

Лучше так:

procedure TForm1.FormResize(Sender: TObject);
begin
Label1.left:=Round(form1.clientWidth/2 - Label1.Width/2) ;
Label1.top:=Round(form1.clientheight/2 - Label1.Height/2);
end;

Label будет точно посередине формы.

Если всё-таки хочется, чтобы метка была посреди экрана, делай так:
procedure TForm1.FormConstrainedResize(Sender: TObject; var MinWidth,
MinHeight, MaxWidth, MaxHeight: Integer);
begin
Label1.left:=Round(Screen.Width / 2 - Label1.Width / 2 -Form1.Left);
Label1.top:=Round(Screen.Height / 2 - Label1.Height / 2-Form1.top);
end;

Текст Найти похожие ветки