Окна как у Winamp

← →
kyn66 © (2007-10-17 16:17) [0]

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

← →
tesseract © (2007-10-17 16:36) [1]

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

← →
kyn66 © (2007-10-17 16:42) [2]

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

← →
Efir (2007-10-17 16:44) [3]

Смотри сообщение 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:57) [4]

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

← →
Eraser © (2007-10-17 17:04) [5]

> kyn66 © (17.10.07 16:17)

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

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

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

Окна как у Winamp Найти похожие ветки