Форма без заголовка - словно еж! Взять не за что. [D6, Win95/98, WinME, NT4, Win2k, WinXP]
Lord BDV © (2002-05-09 10:40:00)
Действительно, по некоторым причинам мне пришлось сделать
форму с
bsNone, т.е. без заголовка и границ. Таким образом,
пользователь не может ее таскать по экрану.
На форме у меня есть определенная прямоугольная облась
(напримен - [x1,y1] - [x2,y2] ), предназначенная для захвата формы.
Как сделать так, чтобы пользователь мог таскать мою форму по
экрану, хватая ее за эту область?
Заранее спасибо!
Pat (2002-05-09 11:27:00) [1]
Перемещение форы за TPanel:
procedure TForm1.Panel1MouseDown(Sender: TObject; Button:
TMouseButton;
Shift: TShiftState; X, Y: Integer);
const SC_DragMove = $F012;
begin
if button=mbleft then
begin
ReleaseCapture;
perform(WM_SysCommand, SC_DragMove, 0);
end;
end;
Наверх 
ЧАТ |
Орешник |
|
