Размеры компонентов

← →
Vacheslav © (2002-03-03 20:11) [0]

Подскажите, как во время выполнения програмыы изменять размеры компонентов (мышкой - сужать/ расширять)?

← →
lipskiy © (2002-03-03 21:35) [1]

Ловить координаты мышки (GetCursorPos) по OnMouseDown запоминать стартовые, по OnMouseMove снова брать текущие, вычислять дельту и на эту дельту менять размеры объекта (Panel1.Width:= ...).

← →
drpass © (2002-03-03 22:31) [2]

Разумнее разбить форму на изменяемые области с помощью TPanel и TSplitter, а прочим компонентам установить точки привязки (Anchors) в true

← →
lipskiy © (2002-03-04 00:46) [3]

Сплиттер не позволит тянуть мышкой панель сразу в двух координатах. Но если это не требуется, то так, конечно, удобнее.

← →
Vacheslav © (2002-03-05 15:06) [4]

Что-то глючит однако. Пишу в onMouseMove: Button1.width:=Button1.width+x-DragPoint.x;
и при попытке изменить размер кнопка становится астраномической величины(в экран не влазит) или наоборот пропадает.
Help!

← →
Kozhanov © (2002-03-05 15:08) [5]

> Vacheslav
Есть простенький компонент по этому поводу.
Могу выслать.

← →
lipskiy © (2002-03-05 15:21) [6]

2Vacheslav
Глючит потому, что при изменении размеров кнопки событие onMouseMove вызывается вновь автоматически - мышку то держишь на месте, а кнопка поехала - тот же MouseMove происходит (неважно, что двигать - мышку и ли объект под ней), и попадаешь в бесконечный цикл. Надо флажки расставлять, видимо.

2Kozhanov давай на vatcheslav@mtu-net.ru
2lipskiy поподробнее, пожалуйста, как их расставить?

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Panel1: TPanel; procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure Panel1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Moving:boolean; Start,Current:TPoint; InitialSize:TPoint; const Field = 10; implementation {$R *.DFM} procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if (X > Panel1.Width - Field) and (Y > Panel1.Height - Field) then begin Moving:= true; Start:= Point(X,Y); InitialSize:= Point(Panel1.Width, Panel1.Height); end; end; procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if (X > Panel1.Width - Field) and (Y > Panel1.Height - Field) then Panel1.Cursor:= crSizeNWSE else Panel1.Cursor:= crDefault; if Moving then begin Panel1.Width:= InitialSize.x + (X - Start.X); Panel1.Height:= InitialSize.y + (Y - Start.Y); end; end; procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Moving:= False; end; end.

Спасибо всем.

Размеры компонентов Найти похожие ветки