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

Вниз

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

 
wed   (2002-03-11 18:49) [0]

Я убираю System Menu и нужно, нажав мышью на мой Image перетаскивать форму


 
Юрий Зотов ©   (2002-03-11 19:27) [1]

Попробуйте такую схему:

type
TForm1 = class(TForm)
Image1: TImage;
...
private
procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
end;


procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
inherited;
with Message do
if ControlAtPos(ScreenToClient(Point(XPos, YPos)), False, False) = Image1 then Result := HTCAPTION
end;


 
I/O ©   (2002-03-11 22:00) [2]

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DragMove = $F012;
begin
ReleaseCapture;
perform(WM_SysCommand, SC_DragMove, 0);

end;


 
copyr25 ©   (2002-03-11 23:02) [3]

Ну, частный случай, конечно... Перетаскивает, когда мышка нажата на Image.

procedure TForm1.Image1MouseDown(Sender: TObject; Button:
TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Handle,WM_NCLBUTTONDOWN,HTCAPTION,0);
end;


 
lel ©   (2002-03-12 17:46) [4]

Мой вариантик 8))
ReleaseCapture();
Self.Perform(WM_NCLBUTTONDOWN, HTCAPTION, 0);
Кстате это работает для многих компонент...Не знаю как насчет всех, но повесь один этот обработчик на форму, кнопку, панель.
8))
Желаю удачи в темных делах.
С уважением Алексей.



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

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

Наверх




Память: 0.47 MB
Время: 0.012 c
4-39903
Devid
2002-03-10 18:40
2002.05.13
Как сделать чтобы image не мигала когда я рисую???


7-39871
UniQ
2001-11-19 23:15
2002.05.13
Как работать с модемом из Delphi 5 (набор номера, приём звонка) ?


1-39748
Vovchik
2002-04-27 19:51
2002.05.13
Копирование файлов с помощью SHFileOperation


6-39812
Aaz
2002-02-27 04:29
2002.05.13
Sniffer. Не работает. Не открывает адаптер.


1-39751
Чайна
2002-04-26 23:53
2002.05.13
Сохранение рекорда с динамическим массивом в файле