Главная страница
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.017 c
1-37161
BlackTiger
2002-12-28 14:07
2003.01.13
Странно... (создание контролов в run-time)


4-37443
Ал
2002-11-25 11:13
2003.01.13
Смещение от Гринвича


6-37234
Grigor
2002-11-12 17:34
2003.01.13
Как дождаться окончания выполнения внешнего приложение


3-36994
orion_st
2002-12-18 11:53
2003.01.13
Удаление записи через RxDBGrid


14-37270
Мазут Береговой
2002-12-23 07:03
2003.01.13
Интересная Мысль No 2 (Автор ветки Fenik)