![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Тащим форму
**** © (2002-09-13 14:40:00)Подскажите, пожалста. Вроде частый вопрос, но в поиске ничего не нашел..
Как сделать, что бы можно было таскать форму не только за заголовок???
**** (2002-09-13 15:06:00) [1]спасибо, помогло
Trof (2002-09-13 15:03:00) [2]Например:
procedure TfmAdv.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ssLeft in Shift then
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND,$F012,0);
end
end;