Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как изменить размер формы? [D6, WinXP]

Micah'GF © (2002-08-31 22:39:00)
Как изменить размер формы? А то меньше 114 по ширине не получается.

Micah'GF (2002-09-03 08:29:00) [1]
2alena.svt
>Я не поняла зачем bsNone только конечно это вам нужно
Да все нормально! Формочка представляет собой как бу просто картинку. Она не имеет заголовка с кнопочками закрыть,... (это просто не нужно), все что нужно нарисовано на картинке.

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

MBo (2002-09-02 12:05:00) [2]
http://www.swissdelphicenter.ch/en/showcode.php?id=1063

Bass1 (2002-09-02 11:54:00) [3]
Screen.width ???
Лучше monitor.workarea.top и monitor.workarea.right-form1.width тогда не будет зависеть от разрешения и всяких там таскбаров и других панелей.

alena.svt (2002-09-01 23:04:00) [4]
>Malder ©
В правый верхнии угол можно и Align alRight
Только MaxWidth и MaxHeight установить.
А вот как ему отследить когда разрешение меняется.

Malder (2002-09-01 22:58:00) [5]
>Надо эту формочку поместить в правый верхний угол

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

alena.svt (2002-09-01 22:12:00) [6]
Я не поняла зачем 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 наверное делается, но чтоб отследить когда юзер поменял разрешение экрана???

Micah'GF (2002-09-01 21:44:00) [7]
А вот тут вот сразу еще один вопросик появился. Надо эту формочку поместить в правый верхний угол. А то я делаю alCustom и вручную ставлю ее в угол, а при изменении разрешения форма оставляет прежнее положение.

Micah'GF (2002-09-01 21:36:00) [8]
Пасибо alena.svt! Все получилось как ты говорила, тока у меня BorderStile = bsNone, но все нормально.

alena.svt (2002-09-01 13:30:00) [9]
>MsGuns © - Нужели ?
Что означает простите за серость?

MsGuns (2002-09-01 13:18:00) [10]
>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 11:17:00) [11]
Если форма со стилем bsSizable то не получиться, только при bsDialog
А если нужна иконка и кнонки то можно имитировать лишив сначала форму caption"a и сделав его например из панельки.

alena.svt (2002-09-01 10:24:00) [12]
В событии OnCreate для формы пишишь
Form1.Height:= 100;
Form1.Width:= 114;

Micah'GF (2002-09-01 08:54:00) [13]
Как понять в рантайм? Напиши поподробнее!
А можно как нибудь после старта приложения уменьшить размер?

CrazyAngel (2002-08-31 23:00:00) [14]
А у меня получилось только видно ето в runtime
в designtime действительно не получается

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »