[Gareth]

Здравствуйте, на форме есть компонент Image в него загружается иконка программы...
По нажатию на Image, открывается программа но иконка программы пропадает.
Почему так получается? Как заставить не исчезать иконку, что делаю не так? Скажите пожалуйста!
Вот код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

var   Form1: TForm1;   S:string; .... .... 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); DrawIcon(Canvas.Handle ,0, 0, h); end; end;     procedure TForm1.img1Click(Sender: TObject); begin   if S='' then   ShowMessage('бла бла бла...')   else ShellExecute (Form1.Handle, nil, PChar(S), nil, nil, SW_RESTORE); end;

[lmikle]

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

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

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;

[Gareth]

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

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

Код:

Спасибо большое! Помогло.