Как изменить размер формы?

← →
Micah'GF (2002-08-31 22:39) [0]

Как изменить размер формы? А то меньше 114 по ширине не получается.

← →
CrazyAngel (2002-08-31 23:00) [1]

А у меня получилось только видно ето в runtime
в designtime действительно не получается

← →
Micah'GF (2002-09-01 08:54) [2]

Как понять в рантайм? Напиши поподробнее!
А можно как нибудь после старта приложения уменьшить размер?

← →
alena.svt (2002-09-01 10:24) [3]

В событии OnCreate для формы пишишь
Form1.Height:= 100;
Form1.Width:= 114;

← →
alena.svt (2002-09-01 11:17) [4]

Если форма со стилем bsSizable то не получиться, только при bsDialog
А если нужна иконка и кнонки то можно имитировать лишив сначала форму caption"a и сделав его например из панельки.

← →
MsGuns (2002-09-01 13:18) [5]

>alena.svt © (01.09.02 10:24)
>В событии OnCreate для формы пишишь
>Form1.Height:= 100;
>Form1.Width:= 114;

>alena.svt © (01.09.02 11:17)
>Если форма со стилем bsSizable то не получиться, только при >bsDialog

- Нужели ?

← →
alena.svt (2002-09-01 13:30) [6]

>MsGuns © - Нужели ?
Что означает простите за серость?

← →
Micah'GF (2002-09-01 21:36) [7]

Пасибо alena.svt! Все получилось как ты говорила, тока у меня BorderStile = bsNone, но все нормально.

← →
Micah'GF (2002-09-01 21:44) [8]

А вот тут вот сразу еще один вопросик появился. Надо эту формочку поместить в правый верхний угол. А то я делаю alCustom и вручную ставлю ее в угол, а при изменении разрешения форма оставляет прежнее положение.

← →
alena.svt (2002-09-01 22:12) [9]

Я не поняла зачем bsNone только конечно это вам нужно
Можно и bsSiziable но без Сaption"a(не надписи а заголока)или bsSingle если вам ее растягивать ее нельзя.
В событии OnCreate для формы
procedure TForm1.FormCreate(Sender: TObject); var FSizeCaption : Integer; begin FSizeCaption := GetSystemMetrics(SM_CYCAPTION); SetWindowLong(Form1.Handle, GWL_STYLE, GetWindowLong(Form1.Handle, GWL_Style) and not WS_Caption); Form1.Height:=Form1.Height - FSizeCaption; end;
А по второму незнаю это через TScreen наверное делается, но чтоб отследить когда юзер поменял разрешение экрана???

← →
Malder (2002-09-01 22:58) [10]

>Надо эту формочку поместить в правый верхний угол

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.top:=0;
Form1.left:=Screen.Width-Form1.Width;
end;

← →
alena.svt (2002-09-01 23:04) [11]

>Malder ©
В правый верхнии угол можно и Align alRight
Только MaxWidth и MaxHeight установить.
А вот как ему отследить когда разрешение меняется.

← →
Bass1 (2002-09-02 11:54) [12]

Screen.width ???
Лучше monitor.workarea.top и monitor.workarea.right-form1.width тогда не будет зависеть от разрешения и всяких там таскбаров и других панелей.

← →
MBo (2002-09-02 12:05) [13]

http://www.swissdelphicenter.ch/en/showcode.php?id=1063

← →
Micah'GF (2002-09-03 08:29) [14]

2alena.svt
>Я не поняла зачем bsNone только конечно это вам нужно
Да все нормально! Формочка представляет собой как бу просто картинку. Она не имеет заголовка с кнопочками закрыть,... (это просто не нужно), все что нужно нарисовано на картинке.

А вообще всем спасибо... помогли хорошо. А насчет положения формы: она устанавливается в угол перечисленными способами, а при смене разрешения на большее немного сдвигается влево относительно правого края экрана гдето примерно 4-5 точек. При смене на меньшее - всё нормально.

Как изменить размер формы? Найти похожие ветки