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

Вниз

Помогите стиль bsnone как ее можна перетакивать???????   Найти похожие ветки 

 
Master   (2003-10-23 01:16) [0]

Форма имеет стиль bsnone вместо заголовка рисунок как сделать,
чтобы можно было за него ее (форму) таскать по экрану.


 
Александр-И   (2003-10-23 01:37) [1]

Придется писать для заголовка (рисунка) обаботчик мышки. Прмерно так :

var
oldPosX, oldPosY: Integer;
flagMoved: Boolean;

......

{============================================================== }
procedure TGlav.pnlCaptionMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
flagMoved:=True;
oldPosX:=X; oldPosY:=Y;
end;

{============================================================== }
procedure TGlav.pnlCaptionMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
IF flagMoved Then begin
Glav.Left:=Glav.Left + X - oldPosX;
Glav.Top :=Glav.Top + Y - oldPosY;
end;
end;

{ ============================================================= }
procedure TGlav.pnlCaptionMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
flagMoved:=False;
end;


 
zapped   (2003-10-23 11:03) [2]

вот как за TPanel можно таскать форму...

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
try
TControl(Sender).Parent.Perform(WM_SysCommand, $F012, 0);
except
end;
end;


TControl - это в общем случае...


 
REA ©   (2003-10-23 11:48) [3]

Перегрузить WM_NCHITTEST?
А вообще это моветон.



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

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

Наверх




Память: 0.47 MB
Время: 0.024 c
1-8402
Марат
2003-10-22 15:46
2003.11.03
Amoeba


14-8666
wnew
2003-10-11 21:27
2003.11.03
3:1 :))) и 0:2 :(


14-8599
Lexxx
2003-10-15 11:40
2003.11.03
Помогите разобраться с непонятным железячным глюком


3-8335
Geugenk
2003-10-11 16:19
2003.11.03
Table.eof


1-8472
Mishenka
2003-10-23 18:39
2003.11.03
Как распечатать на принтере содержимое Memo?