Как перетащить форму, если нет рамки!

← →
Dyakon_Frost © (2006-03-30 11:52) [0]

Здраствуйте!
Возможно, где-то это уже говорилось и обсуждалось, но поиск почему-то ничего недал, так что если что заранее извеняюсь.

Есть форма без рамки, и мне необходимо, чтобы была возможность ее перетаскивать по экрану! Как это можно сделать? На форме есть только Panel и Image!

Заранее спасибо!

← →
BiN © (2006-03-30 12:12) [1]

в обработчике OnMouseMove любого TWinControl-а вставь

if Handle=GetForegroundWindow then
begin
ReleaseCapture;
SendMessage(Handle,WM_NCLBUTTONDOWN,HTCAPTION,0);
end;

Круто!
Спасибо большое!

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