Форум: "Основная";
Текущий архив: 2003.11.03;
Скачать: [xml.tar.bz2];
Вниз
Помогите стиль 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c
