Форум: "Потрепаться";
Текущий архив: 2003.03.17;
Скачать: [xml.tar.bz2];
Вниз
Как изменять размеры компонента мышкой? Найти похожие ветки
← →
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;
← →
Igor_thief (2003-03-03 10:33) [11]wnew © (03.03.03 00:38)
MAN-In-RED © (03.03.03 00:48)
Большущее Вам спасибочки!!!
← →
Ketmar (2003-03-03 11:02) [12]а можно и проще. если не ошибаюсь, можно нагло надурить компонент, сказав, что сейчас Design Time происходит. и ма-а-аленький кусочек кода. впрочем, могу и ошибаться.
Satanas Nobiscum! 03-Mar-XXXVIII A.S.
← →
Igor_thief (2003-03-03 17:44) [13]Ketmar © (03.03.03 11:02)
Замысел конечно очень интерессный, но это надо проверить. Если чего обнаружится, то обязательно свисни.
← →
Ketmar (2003-03-03 17:54) [14]>Igor_thief © (03.03.03 17:44)
а мне лень проверять. я щаз ящиком занят.
Satanas Nobiscum! 03-Mar-XXXVIII A.S.
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.03.17;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.009 c
