Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.14;
Скачать: CL | DM;

Вниз

виндовая мессага.   Найти похожие ветки 

 
vivus ©   (2001-12-18 10:47) [0]

Помогите, кто знает: Какие параметры надо подставить в параметры SendMessage(), чтобы таскать форму за любое место. Это возможно -сам делал, но потерял параметры... Помогите!


 
gek   (2001-12-18 10:54) [1]

Ну пишешь примерно так

tmyform = class(tform)
...........
private
prosedure WMNCHitTest(var Msg:TWMNCHitTest);message wm_NCHitTest;
.....
end;

procedure myform.WMNCHitTest(var Msg:TWMNCHitTest);
begin
inherited;
if msg.result = htClient then msg.result:=htClient;
end;


 
vivus ©   (2001-12-18 10:58) [2]

спасибо большое. Учту. Но это не совсем то, что я хотел. Существовал более
простой метод (как действие), а именно посылка ядру через SendMessage.


 
Shark   (2001-12-18 15:23) [3]

Извиняюсь надо писать:

procedure TMyForm.WMNCHITTEST(var Msg: TWMNCHitTest);
begin
inherited;
Msg.Result:=htCaption;
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.011 c
3-42697
@andrew
2002-01-22 15:30
2002.02.14
ПРИВЕТ ВСЕМ!!! Помоготе построить запрос:


3-42699
Ольга
2002-01-22 14:19
2002.02.14
У меня есть такая процедура


1-42812
Diablo
2002-01-31 17:38
2002.02.14
Как в листбоксе каждую страку зделать своим цветом


3-42674
KOSTAY
2002-01-21 17:43
2002.02.14
Что это за файлы *.px, *.mb, *.xg_, *.yg_, *.mbl?


7-42879
Ajax
2001-11-07 14:42
2002.02.14
TIFF Format