Hi Delphianer.

Ich hoffe das ihr mir hier weiter helfen könnt. Ich schnalls irgendwie nicht.
Programm will mir weis machen, dass die TLMDGraphicList Komponente nicht gefunden werden kann.

zusammenfalten · markieren

Delphi-Quellcode:

var
  Form1: TForm1;
  LMDGraphicList1: TLMDGraphicList; <---- wird aber hier angegeben.....

implementation

{$R *.dfm}

procedure TForm1.GreatBeast2Click(Sender: TObject);
begin
  LMDGraphicList1.Create(self); <---- hier erstellt......
  LMDGraphiclist1 := ReadComponentResFile('image.dat', nil) as TLMDGraphicList; <---- und hier aufgerufen
  DoubleBuffered := True;
  LMDLimage1.Visible:=true;
  LMDLimage1.ListIndex:=0;
end;

entweder will mich Delphi nur verarschen oder ich hab wirklich keinen Plan!!!!

Danke für eure Tips und Ratschläge schon mal im voraus.....

Versuch malLMDGraphicList1 := TLMDGraphicList.Create(self); [edit] Nachtrag: Ist das eine Komponente? Dann setz malLMDGraphicList1.Parent := self; dahinter.

Hi DeddyH,

Zitat:

LMDGraphicList1 := TLMDGraphicList.Create(self);

funktioniert leider auch nicht. Fehler besteht weiterhin.

Bei

Zitat:

LMDGraphicList1.Parent := self;

macht delphi gleich garnicht mehr mit.

LMD sind Komponenten von: http://www.lmd.de/ für Delphi

Dennoch Danke

Wie lautet denn die genaue Fehlermeldung und wie sieht der Code zum Zeitpunkt des Fehlers aus?

Fehlermeldung

siehe Anhang

Heißt die Klasse auch wirklich so und ist die entsprechende Unit eingebunden?

Wenn die Klasse nicht so hieße oder die Unit fehlt, könnte er gar nicht kompilieren.

Wann kommt die Fehlermeldung denn? Wenn Du das Formular öffnest? Beim Öffnen des Projekts?

Stimmt, habe nicht darauf geachtet, dass da "Project2" in der Titelzeile stand.

Lesen klappt halt besser, ohne Tomaten auf den Augen, Detlef

Servus MuhKuh.


Der Fehler tritt erst in Kraft, wenn ich das Menu öffne und das erste anzuzeigende Image anklicke.
Sprich, sobald das Programm in diese Procedure springt.

markieren

Delphi-Quellcode:

procedure TForm1.GreatBeast2Click(Sender: TObject);
var
LMDGraphicList1: TLMDGraphicList;
begin
  LMDGraphicList1 := TLMDGraphicList.Create(self);
  LMDGraphiclist1 := ReadComponentResFile('image.dat', nil) as TLMDGraphicList;
  DoubleBuffered := True;
  LMDLimage1.Visible:=true;
  LMDLimage1.ListIndex:=0;
end;