[Gareth]

Здравствуйте!
На форме есть Image1, по его нажатию (если картинки нет) открывается opendialog1, после выбора файла, в Image1 появляется иконка выбранного файла. Теперь, если еще раз нажать, этот файл запустится!
Вот собсно код:

Код:

  Form1: TForm1;
  S:string;
  H:HICON;
  iconindex:Word;

implementation
...... ... ....

if S='' then
  begin
  sOpenDialog1.Execute;
  S:=sOpenDialog1.FileName;
  IconIndex := 1;
  if S='' then
  begin
    ShowMessage('Ничего не выбрано');
  end
  else
  h := ExtractAssociatedIcon(hInstance,PChar(S), IconINdex);
  img1.Picture.Icon.Handle := H;
  img1.Picture.Graphic := img1.Picture.Icon;
  end
  else
ShellExecute (Form1.Handle, nil, PChar(S), nil, nil, SW_RESTORE)

Я хочу переделать его под кнопку Bitbtn, без компонентов Image1. Что бы в него загружалась та самая иконка. Помогите пожалуйста переделать.

[icWasya]

Как-то так

Код:

var 
  Ico:TIcon;


  Ico:=TIcon.Create();

  Ico.Handle:=H;

  BitBtn1.Glyph:=Ico;

  Ico.Free;

[Gareth]

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

Как-то так

Делаю так

Код:

begin

 if S='' then
 begin
   sOpenDialog1.Execute;
   S:=sOpenDialog1.FileName;
 if S='' then
 begin
 ShowMessage('Не выбрал');
 end
 else
  h := ExtractAssociatedIcon(hInstance,PChar(S), IconINdex);
   Ico:=TIcon.Create();
  Ico.Handle:=H;
 sBitBtn1.Glyph:=ico;
  Ico.Free;
 end
 else
ShellExecute (Form1.Handle, nil, PChar(S), nil, nil, SW_RESTORE)}
  end;

Ругается на Incompatible types: 'TBitmap' and 'TIcon' (15 строка)

[Ildar-tsr]

Вообще glyph воспринимает только формат .bmp, а ты в него .ico засунуть пытаешься. Выбрасывай этот код и пиши по новой, будут уже конкретные вопросы обращайся.

[Gareth]

Сообщение от Ildar-tsr

Вообще glyph воспринимает только формат .bmp, а ты в него .ico засунуть пытаешься. Выбрасывай этот код и пиши по новой, будут уже конкретные вопросы обращайся.

Окей, как мне сделать так, что бы при OnMouseDown на Image1, происходила анимация нажатия на кнопке? Что бы было видно как кнопка нажимается под Image1.

[Gareth]

Извиняюсь, нашёл, сначала не работало, но потом подсказали groupindex.