Delphi-Quellcode:
procedure TForm2.FormPaint(Sender: TObject);
var
Icon: TIcon;
begin
Icon:=TIcon.Create;
Icon.Handle:=LoadIcon(0,IDI_QUESTION);
// if Icon.Handle > 0 then Form2.Canvas.Draw(25,35,Icon); //<------
if Icon.Handle > 0 then Canvas.Draw(25,35,Icon); //<------
Icon.Free
end;
So sollte es theoretisch funktionieren.