Как изменять размеры компонента мышкой?

← →
Igor_thief © (2003-02-28 19:19) [0]

Так чтобы навел на край компонента, курсор изменился, потянул, и размер компонента изменился. Ну вобщем как при разработке интерфейса, но в процесе выполнения проги.

← →
Ketmar © (2003-02-28 19:34) [1]

написать редактор a-la delphi.

Satanas Nobiscum! 28-Feb-XXXVIII A.S.

← →
Igor_thief © (2003-02-28 19:42) [2]

Э не!

← →
Ketmar © (2003-02-28 20:16) [3]

тогда расслабиться, пивка попить.

Satanas Nobiscum! 28-Feb-XXXVIII A.S.

← →
kaif © (2003-02-28 23:33) [4]

Использовать компоненты фирмы Dream Controls.
www.dream-com.com

← →
Mihey (2003-03-01 00:10) [5]

Це элементарно, Ватсон.

← →
Igor_thief © (2003-03-02 00:01) [6]

Ну так может кто-то примерчик кинет?

← →
Igor_thief © (2003-03-03 00:27) [7]

Очень важный вопрос!
Срочно надо изменять размеры компонентов мышкой во время выполнения программы.

← →
wnew © (2003-03-03 00:37) [8]

Поизучай этот материал. Всё толково описано.

← →
wnew © (2003-03-03 00:38) [9]

http://delphi.mastak.ru/articles/book/

> wnew © (03.03.03 00:37)

Забыл ссылку вставить:)

← →
MAN-In-RED © (2003-03-03 00:48) [10]

Попробуй это, изменяем размеры компонента типа TPanel с именем Panel1:

var Moving :Boolean; Start, InitialSize :TPoint; implementation {$R *.DFM} procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if (X>Panel1.Width-10) and (Y>Panel1.Height-10) 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-10) and (Y>Panel1.Height-10) 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;

а можно и проще. если не ошибаюсь, можно нагло надурить компонент, сказав, что сейчас Design Time происходит. и ма-а-аленький кусочек кода. впрочем, могу и ошибаться.

Satanas Nobiscum! 03-Mar-XXXVIII A.S.

Ketmar © (03.03.03 11:02)
Замысел конечно очень интерессный, но это надо проверить. Если чего обнаружится, то обязательно свисни.

Как изменять размеры компонента мышкой? Найти похожие ветки