Создание компонента

← →
Пользователь (2006-01-16 13:00) [0]

Всем привет.
Очень расчитываю на Вашу помощь.
Нужно динамически (в процессе выполнения программы) создать новый Shape в Scrollbox"e
Зараннее спасибо..

← →
Ega23 © (2006-01-16 13:03) [1]

With TShape.Create(ScrollBox1) do begin Parent:=ScrollBox1; Top:=... Left:=.... ....... end;

?

← →
evvcom © (2006-01-16 13:09) [2]

> Создание компонента

Правильнее сказать "создание объекта", "Создание компонента" - это нечто иное.

← →
Пользователь (2006-01-16 13:56) [3]

А как в нем рисовать можно ?
такой код ScrollBox1.Brush.Bitmap.Canvas.Rectangle(10,10,20,20) не проходит
как добраться до канвы ?
Спасибо !

← →
Ega23 © (2006-01-16 14:03) [4]

Положи на ScrollBox1 PaintBox (или Image) и рисуй на нём.

← →
Ega23 © (2006-01-16 14:05) [5]

Положи на ScrollBox1 PaintBox (или Image) и рисуй на нём.

← →
evvcom © (2006-01-16 14:25) [6]

> такой код ScrollBox1.Brush.Bitmap.Canvas.Rectangle(10,10,
> 20,20) не проходит

Почему не проходит? Что-то там проходит, только ты не понял что. Ты ж рисуешь на канве кисти, причем не проверив размеров этой кисти. После такого рисования (удостоверившись в попадании рисунка в размеры канвы кисти) добейся заливки ScrollBox1 этой кистью, и увидишь, что что-то прошло, правда не то, что ты ожидал.

← →
Ega23 © (2006-01-16 14:31) [7]

Ой. А Brush-то я и не заметил.
Да-а-а, так ты долго рисовать будешь....

← →
Пользователь (2006-01-16 16:18) [8]

а еще...
я создаю Shape

With TShape.Create(ScrollBox1) do
begin
Parent:=ScrollBox1;
Top:=...
Left:=....
.......
end;

а как мне узнать имя этого обекта, что бы потом его свойства изменять ?
Огромное спасибо !

← →
Ega23 © (2006-01-16 16:20) [9]

> а как мне узнать имя этого обекта, что бы потом его свойства
> изменять ?

With TShape.Create(ScrollBox1) do begin Parent:=ScrollBox1; Top:=... Left:=.... Name:="MyScrollBox"; ....... end;

← →
Пользователь (2006-01-16 16:26) [10]

спасибо, и наверно последнее
а как же мне в коде написать
- создал объект
- "запомнил" его имя

а как в коде потом к нему достукиваться, что писать ?

Сенкс

> а как мне узнать имя этого обекта, что бы потом его свойства
> изменять ?

Имя сестра! Его имя!? (c) Мушкетеры

А зачем тебе его имя? Заведи переменную класса (обычно приватную) и
FMyShape := TShape.Create(ScrollBox1); with FMyShape do ...
Вот через эту переменную и будешь потом добираться.

← →
domain (2006-01-16 17:04) [12]

function GetShape(ItsName: String): TShape; begin Result:=TShape(ScrollBox1.FindComponent(ItsName)); end;

можно и так, если с переменными запутался.

Либо заводи переменную, либо перебирай все компоненты класса TShape и проверяй на строковое имя.

Создание компонента Найти похожие ветки