Ich hab jetz eine kleine Prozedur geschrieben, die das Icon holen kann.
Mein Problem ist aber, dass das Icon verschwindet, wenn ich es über einen Button zeichnen will.
Delphi-Quellcode:
procedure geticon;
var
MyIcon:TIcon;
icoHandle: HIcon;
Image1 : TImage;
begin
Image1:=TImage.Create(Form1);
Image1.Top := 2;
Image1.Left := 2;
Image1.Parent := Form1;
Image1.BringToFront;
MyIcon:=TIcon.Create;
try
icoHandle := ExtractIcon(application.handle,'c:\windows\explorer.exe', 0);
MyIcon.Handle:=icoHandle;
Image1.Picture.Icon:=MyIcon;
Image1.Height := 25;
Image1.Width := 25;
Image1.Autosize := true;
finally
MyIcon.free;
end;
end;
Weis jemand, wie ich das Icon über alle anderen Objekte (buttons usw) legen kann?
devnull