Скачать: CL | DM;

проблема с перетаскиванием окна   Найти похожие ветки 

← →
ярослав   (2007-04-19 06:08) [0]

Народ, х-е-е-е-е-е-лп! Делаю игру "змейка" на дельфи, с      кодом  проблем нет, но я для красоты сделал нестандартную форму со скругленными краями, и , соответственно,  обрезал Caption Bar. Форма, теперь, естественнно, не перетаскивается, а мне это необходимо! Кто что может посоветовать?

---

← →
clickmaker ©   (2007-04-19 09:24) [1]

WM_NCHITTEST
если мышь в том месте, за которое хочешь таскать, возвращай HTCAPTION

---

← →
{RASkov}   (2007-04-19 12:55) [2]

Как вариант:
На OnMouseDown для всех контролов "за которые" собираешся "таскать" форму, включая саму форму, пропиши вот это:
begin
 ReleaseCapture;
 Perform(WM_SYSCOMMAND, $F012, 0);
end;

---

← →
Робинзон   (2007-04-20 10:16) [3]

Подобный пример расматривался в Королевстве
Вот код
в  private опиши процедуру

       procedure WMNCHitTest(var M:TWMNCHitTest);message wm_NCHitTest;
 

procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
 inherited;
 if M.Result = htClient then
   M.Result := htCaption;
end;

---

← →
Робинзон   (2007-04-20 10:21) [4]

Кстати вариант {RASkov}  мне больше нравится. В основном я его использую.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c