|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Помогите исправить ошибку
С напступающим вса рождеством . Помогите мне написать программу с двумя формами но 1 из которых должна прилипать к первой как в винампе ,как это реализовать . Прошу писать вас с коминтариями .
Последний раз редактировалось Sharky, 06.01.2008 в 14:40. |
#2
|
||||
|
||||
Можно сделать так:
Процедура окончания перемещения Формы1 Код:
procedure TForm1.FormEndDock(Sender, Target: TObject; X, Y: Integer); begin Form2.Left:=Form1.Left+Form1.Width; //Левой границе Формы2 = Левая граница Формы1+Ширина Формы1 Form2.Top:=Form1.Top; //Выравниваем Верхние границы end; Процедура показа Формы2 procedure TForm1.FormShow(Sender: TObject); begin Form2.Show; end; Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|