Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.01.13;
Скачать: 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 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.02 c
14-37294
Дмитрий К.К.
2002-12-23 06:14
2003.01.13
Именинники 23 декабря


14-37324
ScableR
2002-12-24 02:57
2003.01.13
D6 или D7


1-37053
-=KLEY=-
2003-01-03 00:27
2003.01.13
Запуск программ


1-37006
ivlex
2003-01-01 04:06
2003.01.13
О блокировке заставки


6-37244
malkolinge
2002-11-13 21:33
2003.01.13
Stream Read error