Текущий архив: 2003.09.25;
Скачать: CL | DM;

Вниз

Popup   Найти похожие ветки 

← →
Vinter   (2003-09-12 14:38) [0]

Вобщем делаю следующее

private
procedure WMNCHITTEST(var Msg: TMessage);
message WM_NCHITTEST;
{ Private declarations }

end;

var
FormMain: TFormMain;

implementation

{$R *.dfm}

procedure TFormMain.WMNCHITTEST(var Msg: TMessage);
begin
Msg.Result:=HTCAPTION;
end;


Т.е теперь мне форма позволят себя перетаскивать непосредственно хватая за неё

Но проблема в том что соответственно перестал появлятся PopupMenu при правом клике мыши, как эту проблему мона решить

---

← →
clickmaker   (2003-09-12 17:09) [1]

if (GetKeyState(VK_RBUTTON) shr 8) = 0 then
Msg.Result:=HTCAPTION
else
DefaultHandler(Message);

---

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

Текущий архив: 2003.09.25;
Скачать: CL | DM;

Наверх

Память: 0.43 MB
Время: 0.009 c