Res-Datei

[himitsu]

Das gibt es ja nicht.

[Luckie]

Was gibt es nicht? Wenn TIcon die Methode LoadFromStream kennt, dann kannst du doch einen Ressourcen Stream nehmen.

[Markus K.]

LoadIcon gibt es doch

HICON LoadIcon(
HINSTANCE hInstance, // handle of application instance
LPCTSTR lpIconName // icon-name string or icon resource identifier
);

Tschüß Markus

[Luckie]

Ach so.

@himitsu: Es hat niemand behauptet, dass LoadIcon eine Methode von TIcon wäre.

[himitsu]

Hab rausgefunden, dass es unter CLX LoadFromResourceName für TIcon gibt, aber unter VCL nicht.


Hab es jetzt so versucht, aber es wird kein Icon geladen. (Icon-Handle bleibt 0)

Delphi-Quellcode:

Var TNA_Icon: HIcon;
TNA_Icon := LoadIcon(Application.Handle, 'MAINICON_K');

Var TNA_Icon: HIcon;
TNA_Icon := LoadIcon(Handle, 'MAINICON_K');

Var TNA_Icon: TIcon;
TNA_Icon := TIcon.Create;
TNA_Icon.Handle := LoadIcon(Handle, 'MAINICON_K');

[Luckie]

Welche ID oder wie hast du das Icon in der rc-Datzei genannt?

[himitsu]

Der Name ist schon richtig -.-

[Luckie]

Mach mal:
MAKEINTRESOURCE('MAINICON_K')

[Luckie]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Icon: TIcon;
begin
  Icon := TIcon.Create;
  Icon.Handle := LoadIcon(hInstance, MAKEINTRESOURCE('MAINICON'));
  Canvas.Draw(0, 0, Icon);
end;

So geht es.

[himitsu]

Bei mir geht's jetzt.

hatte das falsche Handle verwendet

Code:

LoadIcon([b]hInstance[/b], ...