![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как таскать за панель [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;