Как двигать окно программы нажав на ней мышью?

← →
Hromosom (2005-05-26 19:56) [0]

Пишу программу, хочу узнать как сделать чтоб можно было двигать окно программы нажав на нем мышкой и когда отпустишь чтоб перестало.

Спасибо вам люди добрые за ваши ответы.

← →
kami © (2005-05-26 20:01) [1]

А в FAQ посмотреть - не судьба, конечно :)
uses
SysUtils, WinTypes, WinProcs, Messages,
Classes, Graphics, Controls, Forms, Dialogs, StdCrtls;
type
TForm1 = class(TForm)
private
procedure WMNCHitTest(var M: TWMNCHitTest);
message wm_NCCHitTest;
end;
------------------------------------
procedure TForm1. WMNCHitTest(var M: TWMNCHitTest);

begin
inherited;
if M.Result = htClient then
M.Result := htCaption;
end;

end.

← →
kami © (2005-05-26 20:02) [2]

Забыл добавить - взято с Delphi Russian Knowledge Base

← →
Hromosom © (2005-05-26 20:05) [3]

А что какой фкг где?
А у мена нету модуля StdCrtls и желания инсталить всякую бякй тоже нет.
Как сделать просто через дельфи?

← →
Nes © (2005-05-26 20:17) [4]

Дык, ркшил зайти сюды и вот на:
Переписываю kami:
В секцию Private Declarations дописываем объявление процедуры:
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;

← →
kami © (2005-05-26 20:21) [5]

ну, да, не посмотрел на код - сделал ctrl-c ctrl-v
Нужно всего лишь добавить в uses нужной формы модуль StdCtrls
и заменить wm_NCCHitTest на wm_NCHitTest

Только что проверил - все работает (правда, D5). И не надо ничего добавлять.

← →
kami © (2005-05-26 20:23) [6]

<offtop>
[4] Nes ©
Опередил :)
</offtop>

← →
Hromosom © (2005-05-26 20:36) [7]

Rabotat rabotaet tolko ja ne ponal kak...

Slihal pro sposob vibrat iz menu s pomos4ju SendMessage() kak eto sdelat ne ponal, mozet objasnite?

← →
Yanis © (2005-05-26 21:06) [8]

> Slihal pro sposob vibrat iz menu s pomos4ju SendMessage() kak eto
> sdelat ne ponal, mozet objasnite?

Тебе привели вполне хороший код. Зачем тебе ещё мучения?

← →
alex-drob (2005-05-26 21:19) [9]

releasecapture;
perform(wm_syscommand,$f012,0)

← →
Hromosom © (2005-05-26 21:30) [10]

Potomu kak ja ego ne ponal a pontu mne ot etogo koda togda ja nau4itsja ho4u vot v 4em prikol a vtoroi sposob bil bi mne poleznee jab 4go mozet es4e gde zajuzat smog.

Smisl v tom 4tob poslat komandu kak budto ti nazal na move iz menu progi.

значт...открываем учебник по Delphi...и читаем "Что такое сообщения,Типы сообщений,Система сообщение Delphi ,Обработка сообщений" и ещё кучу тем,тогда всё поймешь...кстати...второй способ ,по-моему,ничем не легче...

А дык, забыл...+"API:SendMessage и PostMessage"

Удалено модератором
Примечание: Может лучше ты пойдешь туда?

>>Я учусь только по справке в Delphi

А что ты тогда здесь делаешь?

Как двигать окно программы нажав на ней мышью? Найти похожие ветки