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

Вниз

Как мне за имадж перетаскивать форму   Найти похожие ветки 

 
Andrey196 ©   (2001-12-23 20:31) [0]

У меня на всу форму растянут имадж form.borderstyle:=bsNone;
Как мне за имадж перетаскивать форму.

СПАСИБО!!!!!


 
Al Creator ©   (2001-12-23 21:51) [1]

Достаточно известен способ перемещения приложения без Caption. Для решения этой технической задачи нужно переопределить обработчик события WM_NCHITTEST для окна следующим образом:
type
TForm1=class(TForm)
....
private
procedure WMNCHITTEST(var M:TWMNCHitTest);message wm_NCHitTest;
...
end;

procedure TForm1.WMNCHITTEST(var M:TWMNCHitTest);message wm_NCHitTest;
begin
(вызов унаследованного обработчика событий)
inherited;
(если событие произошло в клиентской области, )
IF M.Result=htClient then
(то пусть думает, что произошло на Caption)
M.Result:=htCaption;
end;

Недостаток такого окна - не вызываются обработчи событий связанных с мышью....
Всё, что было проделано с формой можно применить и к остальным оконным компонентам. Никто не запрещает переопределять WM_NCHitTEST



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

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

Наверх




Память: 0.46 MB
Время: 0.007 c
14-28540
savva
2001-11-15 12:28
2002.01.10
Поздравляем сегодня человека с ником Jey - у него сегодня день ВАРЕНЬЯ!!! (и подружнее товариши:)))


3-28405
Desdechado
2001-12-05 16:09
2002.01.10
IB по модемному каналу


6-28524
Алексей Штыков
2001-10-16 14:38
2002.01.10
Как втихую проверить обновления (любые) с сервера.?


3-28419
Denis Proshkin
2001-12-06 15:41
2002.01.10
фильтрация по Date


14-28541
модератор
2001-11-09 09:49
2002.01.10
>Oleg Gashev