Deklaration von Objekten

[Hellcat]

Hi Leute!

Mit Deklaration stehe ich irgendwie auf Kriegsfuß...hab da schon wieder eine Meldung "Undeclared Identifier"....
Das Bild THLPan befindet sich auf der Form1, die zur Form gehörende Unit ist die UnitHaupt. Ich will jetzt auf der UnitFunc eine Funktion aufrufen bei der dieses Bild übergeben wird.

Deklaration:

Delphi-Quellcode:

unit UnitFunc;

interface

uses SysUtils, ExtCtrls, StdCtrls, Controls, Classes, Graphics, Dialogs,Forms,
     unittype;
  {Standard-Units auf die zurückgegriffen wird}
  type
    TForm1 = class(TForm);
    THLPan1 = TImage;

Funktionsaufruf:

Delphi-Quellcode:

        BildTHL[i] := THL (Form1.THLPan[i],Button,BildTHL[i]);

Funktion:

Delphi-Quellcode:

function THL (Sender: TImage; Button: TMousebutton; Bild: boolean): boolean; //Zustand THL wechseln
var
  bitmapTHL: TBitmap;   {Deklaration der lokalen Variable für die Bitmap}
begin
  if  Bild = false then {Zustandsabfrage welches Bild derzeit geladen ist}
    begin
      BitmapTHL := TBitmap.Create;
      BitmapTHL.loadfromfile ('THL.bmp');
      Sender.Picture.LoadFromFile('THL.bmp'); {Bild wird geladen}
      result := true;   {Zustandsvariable wird geändert}
    end
  else
    begin
      BitmapTHL := TBitmap.Create;
      BitmapTHL.loadfromfile ('nonTHL.bmp');
      Sender.Picture.LoadFromFile('nonTHL.bmp');   {Bild wird geladen}
      result := false;    {Zustandsvariable wird geändert}
    end;
end;

[Daniel B]

Hallo,

dann solltest Du in der UnitFunc in den Uses, die Unit UnitMain aufnehmen, dann kannst Du auch auf das Bild zugreifen, oder auch umgekehrt, wenn Du in der HauptUnit die UnitFunc in den Uses aufnimmst. ;)

Grüsse, Daniel :hi:

[Hellcat]

Ok, ich habs...die Aufrufzeile muss folgender Maßen lauten:

Delphi-Quellcode:

BildTHL[i] := THL (Application.MainForm.FindComponent('THLPan1'+IntToStr(i))as TImage,Mbleft,BildTHL[i]);