Скачать: CL | DM;

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

← →
Ламерок   (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;
Должно получиться.

---

← →
syte_ser78 ©   (2005-08-11 09:13) [8]

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

---

← →
Думкин ©   (2005-08-11 09:26) [9]

> [8] syte_ser78 ©   (11.08.05 09:13)

clientwidth

---

← →
boalse ©   (2005-08-11 09:38) [10]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: -0.979 c