[lmikle]

Сообщение от Gareth

Почему так получается? Как заставить не исчезать иконку, что делаю не так? Скажите пожалуйста!

иконка пропадает, т.к. теряется после отрисовки.
Тебе надо сохранить эту иконку, что бы потом, при следующий перерисовке формы она отрисовалась.
Можно попробовать так:

Код:

procedure TForm1.sButton1Click(Sender: TObject);
var H:HICON;
IconIndex:Word;
begin
if sopendialog1.Execute then
begin
  S:=sopendialog1.FileName;
  IconIndex := 1;
  h := ExtractAssociatedIcon(hInstance,PChar(S), IconINdex);
  image1.Picture.Icon.Handle := h;
  image1.Picture.Graphic := image1.Picture.Icon;
end;
end;