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

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

Как таскать за панель [D5, WinXP]


Red - Dragon ©   (2004-06-15 22:06:00) 

Здравствуйте - я хочу сделать так, чтобы у моей программы в WinXP не было синей полоски вверху(за которую можно таскать), а сделать свою панель и чтобы программа таскалась именно за эту панель.


Red - Dragon   (2004-06-16 21:28:00) [1]

grom- искреннее спасибо!


grom   (2004-06-16 11:10:00) [2]

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);
end;


Наверх

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