Главная страница
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-42656
Anton Shestakov
2002-01-19 02:10
2002.02.14
Внесение в базу данные2


3-42664
Иванов Сергей
2002-01-20 23:24
2002.02.14
Clarion. Чем открыть таблицы?


1-42778
Romul
2002-01-29 10:24
2002.02.14
Как изменить цвет заголовка окна?


3-42648
Eraser
2002-01-17 11:21
2002.02.14
Изменение конкретной строки


3-42671
WWI
2002-01-21 17:20
2002.02.14
Есть проблема с переносом - пересылкой хранимых процедур