Сообщество Чайников

Вопрос

Есть у меня обьект Ticon, как мне в него загрузить из файла ресурсов иконку?

Ответ

Попробуйте так:

procedure LoadJPEGfromEXE;
var MyJPG : TJPEGImage; // JPEG
ResStream : TResourceStream; // Resource Stream
begin
  MyJPG := TJPEGImage.Create;
  ResStream := nil;
  try
    ResStream := TResourceStream.CreateFromID(HInstance, 1, RT_RCDATA);
    MyJPG.LoadFromStream(ResStream); // ДА! Так просто :)
    Canvas.Draw(12,12,MyJPG); // Нарисуем на Canvas, чтобы убедиться, что все работает!
  finally
    MyJPG.Free;
    ResStream.Free;
  end;
end; // end procedure


Или проще в OnCreate прописываешь:

Icon.Handle:=LoadIcon(HInstance,'MAINICON');

Краснов Кирилл