Hi Chris!
Ich glaube dein Icon macht das Problem und weniger der DrawIcon-Aufruf.
Das...
Delphi-Quellcode:
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Ico : HICON;
begin
Ico:=Application.Icon.Handle;
DrawIcon(Canvas.Handle, x, y, Ico);
end;
... funktioniert wunderbar.
