Цитата:
|
Сообщение от lmikle
иконка пропадает, т.к. теряется после отрисовки.
Тебе надо сохранить эту иконку, что бы потом, при следующий перерисовке формы она отрисовалась.
Можно попробовать так:
Код:
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;
|
|
Спасибо большое! Помогло.
21.07.2013, 20:43
Древовидный вид