Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Окна как у Winamp [D7, WinXP]


kyn66 ©   (2007-10-17 16:17:00) 

Подскажите, каким образом сделать, чтобы снизу основной формы было приклеено другое окно типа как у winampa эквалайзер. И нужно чтобы приперетаскивании за шапку основной формы - нижняя следовала тоже следом, ну приклеилась снизу и все


Eraser   (2007-10-17 18:28:00) [1]

оно только для краев десктопа действует.


Palladin   (2007-10-17 18:08:00) [2]

в D7 у формы уже появилось свойство Snap или AutoSnap что то подобное


Eraser   (2007-10-17 17:04:00) [3]


> kyn66 ©   (17.10.07 16:17) 

в JEDI VCL есть компонентик хороший.


kyn66   (2007-10-17 16:57:00) [4]

>> Efir
Огромное спасибо! То что нужно!


Efir   (2007-10-17 16:44:00) [5]

Смотри сообщение WMMoving, возникающее при перетаскивании формы.

private
   procedure WMMoving(var Msg:TWMMoving);message WM_MOVING;

procedure TForm1.WMMoving(var Msg: TWMMoving);
begin
 Form2.Left:=Left;
 Form2.Top:=Top+Height;
end;


kyn66   (2007-10-17 16:42:00) [6]

OnResize как раз и не срабатывает, т.к. размер у формы остается постоянным, надо событие на ее передвижение, а такого не обозреваю


tesseract   (2007-10-17 16:36:00) [7]

Изучай сообщения окон, OnResize должен срабатывать.


Наверх

Титульная страница Поиск, карта сайта Написать письмо