Главная страница
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.019 c
4-37457
GROL
2002-11-25 12:23
2003.01.13
Как определить экранные координаты Menu?


1-37073
Gamar
2003-01-03 12:35
2003.01.13
Имя переменой в другой переменной


1-37089
Bishop
2002-12-28 07:49
2003.01.13
StringGrid


4-37458
Демонов Е.В.
2002-11-26 05:36
2003.01.13
Вопрос о адресном пространстве.


7-37405
Pegas
2002-11-02 12:46
2003.01.13
Как обойти HASP-1C