TIcon.Handle readonly progleme

[day]

hallo,
Ich habe folgendes problem. Die variable Handle ist als readonly deklariert. Wie kann ich den handle des icons dem TIcon zuweisen?

Delphi-Quellcode:

Var
  w: Integer;
  Icon: TIcon; 
  IcoHandle: HIcon;

Begin
  // memchk;
  Icon := TIcon.Create; 
  Try 
    IcoHandle:= ExtractIcon(hinstance, pchar(paramstr(0)), 0); 
    Icon.Handle := IcoHandle;
    Application.Icon.Assign(Icon); 
  Finally 
    Icon.Free; 
  End;

[shmia]

Zitat:

Zitat von day

Ich habe folgendes problem. Die variable Handle ist als readonly deklariert.

Das stimmt doch gar nicht (zumindest nicht bei Delphi 5 +)
Hier der Beweis: (gekürzter Sourcecode)

Delphi-Quellcode:

  TIcon = class(TGraphic)
  private
    function GetHandle: HICON;
    procedure HandleNeeded;
    procedure SetHandle(Value: HICON);
  protected
   ...
  public
    ...
    property Handle: HICON read GetHandle write SetHandle;
  end;

[day]

Bei delphi 7 schon.....

Delphi-Quellcode:

    property Handle: QPixmapH read GetHandle;

gibts dazu eine alternative?

[Luckie]

Was ist denn das für ein Datentyp: QPixmapH :gruebel: Kann es sein, dass du CLX-Units eingebunden hast?