Форум: "Начинающим";
Текущий архив: 2007.05.13;
Скачать: [xml.tar.bz2];
Вниз
проблема с перетаскиванием окна Найти похожие ветки
← →
ярослав (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 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.05.13;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.046 c
