Главная страница
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.009 c
3-42644
Hawk2
2002-01-16 17:14
2002.02.14
Преобразование типов.


7-42880
Jazzy$
2001-11-10 23:16
2002.02.14
Фокус ввода


1-42786
SP
2002-01-31 11:53
2002.02.14
Контрольна сумма файла


1-42798
Petrovich
2002-01-31 21:49
2002.02.14
Проблема с формами


3-42665
Eduard
2002-01-21 09:47
2002.02.14
InsertRecord и DateTime