в двух соснах заблудился :-)

← →
Nomad.kz (2002-10-09 09:33) [0]

Что-то я запутался. Объясните, плз, кому не лень.

Имеем

type TForm1 = class( TForm ) ... private ImageList1:TImageList; icForm:TIcon; icApplication:TIcon; ... procedure TForm1.FormCreate(Sender: TObject); begin //один вариант icForm:=TIcon.Create; ImageList1.GetIcon(1,icForm); icApplication:=Application.Icon; end; procedure TForm1.FormDestroy(Sender: TObject); begin icForm.Free; end;

в таком виде все работает, ошибок runtime нет, но получается, что icApplication всего-навсего ссылается на ту же иконку, что и Application.Icon. Как мне создать копию Application.Icon в icApplication? Просто посмотрел методы иконочные, ничего кроме как ч\з буфер обмена не увидел.

Благодарю за внимание.

← →
Smithson © (2002-10-09 10:29) [1]

Эээээээээээ. По умолчанию иконка формы указывает на иконку приложения, если ее явно не меняли...

← →
Nomad.kz (2002-10-09 10:34) [2]

спасибо, но это не важно, мне нужен метод, который бы копировал изображение из одного объекта TIcon в другой

>Nomad.kz

> который бы копировал изображение из одного объекта TIcon
> в другой

Call Assign to copy another icon object. Assign copies the icon image from the Source parameter if it is another TIcon object.

в двух соснах заблудился :-) - это про TIcon Найти похожие ветки