| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Размеры компонентов [D5, Win95/98]

Vacheslav ©   (2002-03-03 20:11:00) 

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

---

Vacheslav   (2002-03-05 20:55:00) [1]

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

---

lipskiy   (2002-03-05 20:50:00) [2]

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.

---

Vacheslav   (2002-03-05 15:38:00) [3]

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

---

lipskiy   (2002-03-05 15:21:00) [4]

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

---

Kozhanov   (2002-03-05 15:08:00) [5]

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

---

Vacheslav   (2002-03-05 15:06:00) [6]

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

---

lipskiy   (2002-03-04 00:46:00) [7]

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

---

drpass   (2002-03-03 22:31:00) [8]

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

---

lipskiy   (2002-03-03 21:35:00) [9]

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

---

Наверх