Opret et Timage på en anden form?

Hvis du på din sidste form4 har en varriable der hedder KalderForm : TForm;
Når du så kalder show fra en anden form sætter du lige derefter KalderForm sådan:

Form4.Show;
Form4.KalderForm:=Self;

Nu ved din form4 hvem der har lavet en show.

Du kunne også lave en procedure i Form4, f.eks.:

Procedure VisForm4(Hvem : TForm);
begin
  Show;
  KalderForm:=Hvem;
end;

Den kalder du så i stedet for Show:

Form4.VisForm(Self);

Ja, det løser så første del af mit problem.

Men hvis jeg bruge denne måde, så kan jeg vel ikke kalde variabler jeg selv har oprettet. Her mener jeg hvis nu Form2 kalder Form4, hvad skal jeg så skrive for at kalde en variabel fra Form4 så er i Form2?

Hvis du i Form4 skal kalde en variabel i Form2 skriver du:

Form2.MinVar:=???

Ja det ved jeg godt.

Men nu gør jeg følgende fra Form2:

Form4.Show;
Form4.KalderForm:=Self;

Hvordan kalder jeg så MinVar fra Form4 :

self.MinVar ????

Det kunne jo lige så godt være Form1 eller Form3

Ok det havde jeg ikke lige fattet. Hvis det kun er en enkelt varianbel kunne du gøre det sådan:

Procedure VisForm4(Hvem : TForm; var MinVar : ???);
begin
  Show;
  KalderForm:=Hvem;
  FormMinVar:=MinVar;
end;

Men hvis det er flere variabler er det jo ikke så praktisk, så ville jeg lave en GrundForm som indeholdt de forskellige variabler og så lade Form1+2+3 arve fra denne, dvs.:

Procedure VisForm4(Hvem : TGrundForm);

Eller hvis der er mange variabler så putte dem ind i en record som du så angiver i VisForm4 proceduren:

Procedure VisForm4(Hvem : TForm; var MinVar : MinVarRecord);

Skal dine var's ligge på din form, kunne du ikke bare ha' en fælles unit som alle dine forms så havde uses

Jeg har løst det nu. Ved at gemme alle data'erne i en database.

kroning> smid et svar og du kan få point.  :)

Takker for hjælpen.

k