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

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

← →
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 ... // Левая кнопка нажата.

---

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

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



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