В Image повторно загруженный рисунок не отображается!

← →
Provodnick (2004-12-06 12:12) [0]

Здравствуйте. Подскажите пожалуйста, почему данный код не дает ожидаемый результат - на экране появляется только первый рисунок?

procedure TForm1.Button1Click(Sender: TObject);
begin
flag:=not flag;
if flag then
ImageList2.GetBitmap(1,Image1.Picture.Bitmap)
else
ImageList2.GetBitmap(0,Image1.Picture.Bitmap);
end;

← →
Provodnick (2004-12-06 17:06) [1]

Ну неужели никто и вправду не знает!?! НЕ ВЕРЮ!!!

← →
abc (2004-12-06 17:20) [2]

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture:=nil;
flag:=not flag;
if flag then
ImageList2.GetBitmap(1,Image1.Picture.Bitmap)
else
ImageList2.GetBitmap(0,Image1.Picture.Bitmap);
end;

← →
Provodnick (2004-12-06 17:33) [3]

Спасибо, все заработало! Но освобождаются ли при этом все объекты ядра?

В Image повторно загруженный рисунок не отображается! Найти похожие ветки