Resource in Designtime Package

[uligerhardt]

Zitat von backdraft:

Ich habe gerade mal, alles ausser die Unit aus dem Package gelöscht, dann geht es!?!
Was kann sowas verursachen?

Hm, bei mir (BDS2006) geht's mit ner simplen VCL-App auch - zwei Biuttons, ein TImage und folgender Code:

Delphi-Quellcode:

unit MainF;

interface

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  StdCtrls,
  ExtCtrls;

type
  TForm65 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form65: TForm65;

implementation

{$R *.dfm}
{$R iBTVHeader.res}

procedure TForm65.Button1Click(Sender: TObject);
begin
  if FindResource(HInstance, PChar('IBTVHEADERDESCBMP'), RT_BITMAP) = 0 then
    //raise Exception.Create('Resource MEINBILD nicht gefunden');
    ShowMessage('Resource MEINBILD nicht gefunden');
end;

procedure TForm65.Button2Click(Sender: TObject);
var
  TextBitmap: TBitmap;
begin
  TextBitmap := TBitmap.Create;
  TextBitmap.LoadFromResourceName(HInstance, 'IBTVHEADERDESCBMP');
  Image1.Picture.Assign(TextBitmap);
  TextBitmap.Free;
end;

end.

Versuche doch mal, dein Package soweit zu verkleinern wie möglich, ohne dass der Fehler verschwindet. Vielleicht merkst du ja dabei schon, wo's hakt. Anderenfalls poste dein Ergebnis mal.