Tform в углу экрана - Общие вопросы Delphi

pnz_punisher · 10.01.2010, 01:08

Вот еще вопросик:
А как можно сделать так, чтобы при нажатии (допустим на (кнопку) BitBtn7) новая форма (окно) вылазило сбоку экрана, ну примерно как в аске.
???

mihali4 · 10.01.2010, 02:14

Конечно...

Код:

NewForm.Align:=alRight;

или

Код:

NewForm.Left:=Screen.Widht-NewForm.Width;

- это если высоту формы менять не надо...

Shouldercannon · 10.01.2010, 13:00

Есть не большой минус. Форма находится чуть выше панели задач. Видимо нужно поставить определёный параметр у Position

Marsel737 · 10.01.2010, 13:08

Shouldercannon, так можно же эту разницу тоже вычесть, напрмер:

Код:

NewForm.Left:=Screen.Widht-NewForm.Width+5; //или +10 или +2 смотря какая разница

mihali4 · 10.01.2010, 14:27

Цитата:

Сообщение от Shouldercannon

Есть не большой минус. Форма находится чуть выше панели задач. Видимо нужно поставить определёный параметр у Position

Можно задать

Код:

NewForm.Top:=Screen.Height-NewForm.Heigth-stw;

где stw - высота панели задач...

10.01.2010, 01:08	#1
pnz_punisher Пользователь Регистрация: 05.01.2010 Сообщений: 30	Tform в углу экрана Вот еще вопросик: А как можно сделать так, чтобы при нажатии (допустим на (кнопку) BitBtn7) новая форма (окно) вылазило сбоку экрана, ну примерно как в аске. ???

10.01.2010, 02:14	#2
mihali4 * Старожил Регистрация: 22.11.2006 Сообщений: 9,201	Конечно... Код: `NewForm.Align:=alRight;` или Код: `NewForm.Left:=Screen.Widht-NewForm.Width;` - это если высоту формы менять не надо... Последний раз редактировалось mihali4; 10.01.2010 в 02:16.

10.01.2010, 13:00	#3
Shouldercannon Участник клуба Подтвердите свой е-майл Регистрация: 26.01.2008 Сообщений: 1,899	Есть не большой минус. Форма находится чуть выше панели задач. Видимо нужно поставить определёный параметр у Position Последний раз редактировалось Shouldercannon; 10.01.2010 в 13:07.

10.01.2010, 13:08	#4
Marsel737 Форумчанин Регистрация: 09.11.2009 Сообщений: 669	Shouldercannon, так можно же эту разницу тоже вычесть, напрмер: Код: `NewForm.Left:=Screen.Widht-NewForm.Width+5; //или +10 или +2 смотря какая разница` Я не всегда знаю, о чем говорю, но знаю, что прав. © Мухаммед Али. К чёрту обстоятельства. Я создаю возможности. © Брюс Ли Последний раз редактировалось Marsel737; 10.01.2010 в 14:01.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
TPopUpWindow - Вывод формы в углу с эффектами.	uberchel	Компоненты Delphi	7	15.06.2009 00:16
Чтение из TForm	Пaвeл	Общие вопросы Delphi	3	29.03.2009 16:23
Транспонировать квадрат,в нижнем левом углу которого находится минимальный элемент	zidan671	Помощь студентам	14	13.03.2009 22:05
TForm	NieL	Общие вопросы Delphi	9	15.12.2008 18:37
TService+TForm	Viteef	Общие вопросы Delphi	0	25.02.2008 08:13