Hallo!
Ich will eine Klasse von TSpeedButton ableiten, bei der die Glyph-Proptery schon meine gesetzt ist. Hierbei gelingt es mir nicht, dass zugehörige Bild direkt in die Komponente einzubinden:
Delphi-Quellcode:
unit TestButton;
{$R 'Icon.res'}
interface
uses StdCtrls, Buttons, Messages, Classes, Controls, SysUtils, Types;
type
TTestButton =
class(TSpeedButton)
public
constructor Create(AOwner: TComponent);
override;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('
MyComponents', [TTestButton]);
end;
{ TTestButton }
constructor TTestButton.Create(AOwner: TComponent);
begin
inherited;
Glyph.LoadFromResourceName(HInstance, '
Icon');
end;
end.
Die RES-Datei habe ich folgendem Code erstellt:
Icon RCDATA DISCARDABLE "Folder.bmp"
Die Komponente und das
Package in die ich diese eingefügt haben lassen sich problemlos compilieren. Wenn ich dann aber einen TTestButton auf einem Form platzieren will erhalte ich die Meldung "
Ressource Icon wurde nicht gefunden.". Was mache ich hier falsch?
Gruß
Ares