| Написать комментарий | |
27-06-2009 16:51 (ссылка)
Re: Как в delphi 7 перетаскивать форму не только за заголовок
Пхахахахахахаха, а сообщения зачем куда то посылать?? йпт достаточно написать код в событии MouseDown или даже MouseMove.... пхах... жесть чувак изобритательный!
ответить
(с цитатой)
2 комментария
Свернуть
30-06-2009 11:41 (ссылка)
Re: Как в delphi 7 перетаскивать форму не только за заголовок
" procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
const
SC_DRAGMOVE : Longint = $F012;
begin
ReleaseCapture;
SendMessage(Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;
етого далеко достаточно, функции зачем прописывать???????? "
Y: Integer);
const
SC_DRAGMOVE : Longint = $F012;
begin
ReleaseCapture;
SendMessage(Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;
етого далеко достаточно, функции зачем прописывать???????? "
Timur Nuriyasov
30-06-2009 21:23 (ссылка)
Re: Как в delphi 7 перетаскивать форму не только за заголовок
Есть не очень замудренный, но и не колхозный метод. В private добавьте procedure nch(msg:tmessage) message wm_nchittest; . Поставьте курсор на описание, и нажмите ctrl-shift-c. Далее в самой процедуре напишите msg.result:=htcaption;
02-07-2009 13:26 (ссылка)
Re: Как в delphi 7 перетаскивать форму не только за заголовок
Ладно вот нубский вопрос: Что надо сделать что бы в событие OnKeyPress можно было поставить несколько процедурр или чо сделать напр что бы можно было нажимать и держать несколько кнопок одновремменно и отпускать их независимо от других. P.S. возможно у мну Delphi пиратская не все функции поддерживает
| Написать комментарий | ||
