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:
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;