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

Вниз

Форма без заголовка - словно еж! Взять не за что.   Найти похожие ветки 

 
Lord BDV   (2002-05-09 10:40) [0]

Действительно, по некоторым причинам мне пришлось сделать форму с bsNone, т.е. без заголовка и границ. Таким образом, пользователь не может ее таскать по экрану.

На форме у меня есть определенная прямоугольная облась (напримен - [x1,y1] - [x2,y2] ), предназначенная для захвата формы.
Как сделать так, чтобы пользователь мог таскать мою форму по экрану, хватая ее за эту область?

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


 
Pat ©   (2002-05-09 11:27) [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;




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

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

Наверх




Память: 0.46 MB
Время: 0.013 c
7-73410
Dmitry V. Averuanov
2002-02-25 18:47
2002.05.23
Как выключить ATX под DOS-ом ?


1-73271
no_login
2002-05-11 00:37
2002.05.23
Деловое предложение! Есть такой модуль... windows.pas...


1-73144
Ferrarium
2002-05-13 15:32
2002.05.23
Помогите дописать компонент


1-73096
krion_
2002-05-12 15:55
2002.05.23
Как в StringGrid организовать свою прокрутку.


14-73375
VCL
2002-04-15 22:12
2002.05.23
Вот...