Drag&Drop Frage

[Daniel G]

Zitat von mOzZzI:

So jetzt Compiliert er und alles, aber wie nehme ich jetzt z.B. Desktopicons via Drag&Drop in einen Bitbtn auf?

Eigeninitiative ist das Stichwort

Zitat von Matze:

Das Icon kannst du anhand des Dateinamens aus der Datei auslesen (Einfach die Suche benutzen)

Wenn du das machst, findest du zum Bleistift:

Zitat von Martin K:

Für alle, die das Icon aus einer beliebigen Datei haben möchten,
hier der endgültige Quellcode:

Delphi-Quellcode:

uses ... ShellApi;

...

function FileIcon(FileName: String): TIcon;
var FileInfo: TSHFileInfo; AIcon: TIcon;
begin
  FillChar(FileInfo,SizeOf(FileInfo),#0);
  SHGetFileInfo(PChar(FileName),0,FileInfo,SizeOf(FileInfo),SHGFI_ICON or SHGFI_LARGEICON);
  AIcon:=TIcon.Create;
  Try
    AIcon.Handle:=FileInfo.HIcon;
    AIcon.Transparent:=True;
  Except end;
  Result:=AIcon;
end;

Vielen Dank nochmal an ichbins

aus diesem Thread