проблема с перетаскиванием окна

← →
ярослав (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} мне больше нравится. В основном я его использую.

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