Перетаскивание формы

← →
BlackSun (2002-12-29 11:17) [0]

Чтобы форма перетаскивалась не только за заголовк, делаю в своей программе так, как показано ниже, но как мне узнать в процедуре какая кнопка мыши нажата?
private
procedure WMNCHitTest(var Msg: TWMNCHitTest); message WM_NCHITTEST;
{ Private declarations }
public
{ Public declarations }
end;

var
MainF: TMainF;

implementation

{$R *.dfm}
procedure TMainF.WMNCHitTest(var Msg : TWMNCHitTest);
begin
inherited;
Msg.Result := htCaption;
end;

← →
BlackTiger (2002-12-29 11:52) [1]

Ой, не могу вспомнить...

В VB это решалось одной строкой кода посылкой окну всего одного сообщения.

← →
Юрий Зотов (2002-12-29 12:52) [2]

И в VB, и в Delphi, и вообще в Win32 это решается даже не одной строкой, а одним словом - GetKeyState.

if GetKeyState(VK_LBUTTON) < 0 then ... // Левая кнопка нажата.

Перетаскивание формы Найти похожие ветки