Размер панели в StatusBar'e

@tadalex · Регистрация: 30.11.2010

Author24 — интернет-сервис помощи студентам

Как в StatusBar'e сделать неизменяемым размер правой панели при изменении размера окна? То есть, есть форма, в ней StatusBar который содержит три панели. При изменении размера формы пользователем (например, начальный размер формы 600х800, растянутый, напимер на весь экран, в данном случае до 1280х1024) приводит к увеличению ширины крайне правой панели, хотя это нежелательно. В то же время средняя и левая панели сохраняют свои размеры, хотя желательно, что бы средняя панель изменила свои размеры (в сторону увеличения при растяжении формы). Как можно это реализовать?
Для информации: использую Delphi XE.

@virtuhay266 · 30.11.2010, 23:34

Насчет последней статус панели незнаю, добавь еще одну панель и оставь пустой, а насчет изменения размеров других панелей - добавь обработчик OnResize. Например

Delphi

procedure TForm1.Formonresize(Sender: TObject);
begin
   statusbar1.Panels[0].Width:=Trunc(form1.Width/2);
    statusbar1.Panels[1].Width:=Trunc(form1.Width/3);
end;

@tadalex · 01.12.2010, 00:40 **[ТС]**

virtuhay266,
Спасибо!
Задачу реализовал следующим образом:
procedure TmainF.StatusBar1Resize(Sender: TObject);
begin
StatusBar1.Panels[1].Width := StatusBar1.Width - (StatusBar1.Panels[0].Width + StatusBar1.Panels[2].Width)
end;

@tadalex 0 / 0 / 0 Регистрация: 30.11.2010 Сообщений: 4
		1
	Размер панели в StatusBar'e 30.11.2010, 19:25. Показов 3163. Ответов 2 Метки нет (Все метки) Как в StatusBar'e сделать неизменяемым размер правой панели при изменении размера окна? То есть, есть форма, в ней StatusBar который содержит три панели. При изменении размера формы пользователем (например, начальный размер формы 600х800, растянутый, напимер на весь экран, в данном случае до 1280х1024) приводит к увеличению ширины крайне правой панели, хотя это нежелательно. В то же время средняя и левая панели сохраняют свои размеры, хотя желательно, что бы средняя панель изменила свои размеры (в сторону увеличения при растяжении формы). Как можно это реализовать? Для информации: использую Delphi XE. 0

@tadalex 0 / 0 / 0 Регистрация: 30.11.2010 Сообщений: 4
	01.12.2010, 00:40 [ТС]	3
	virtuhay266, Спасибо! Задачу реализовал следующим образом: procedure TmainF.StatusBar1Resize(Sender: TObject); begin StatusBar1.Panels[1].Width := StatusBar1.Width - (StatusBar1.Panels[0].Width + StatusBar1.Panels[2].Width) end; 0

Размер панели в StatusBar'e

Решение