Referere til anden form

Hvis du har lavet det som en MDI application så kan du blot referere til den med: MainForm.ActiveForm

ja, og ellers hvis det bare er en alm. form du \"creater\" i koden på den alm. form, så kan du bruge (efter form1 := tform1.create(application);) bruge

form1.richedit.text := \'aaa\';

o.s.v. intil du har form1.free;

Undskyl,d hvis det er et dumt spørgsmål, men hvor og til hvad bruges form1.free?

Alt hvad du i dit program siger \"Create\" til optager hukommelse m.m. Disse bliver først firigvet til styresystemet (eller dit program) når du siger \"free\".

Eks. Hvis du vil kalde en anden form fra dit program, og den ikke skal skabes ved programstart, skriver du:

form1 := tform1.create(application);
form1.showmodal;
form1.free;

Dermed skaber du den (create) viser den (showmodal) og frigiver hukommelsen igen (free)

Showmodal sikrer at programmet ikke udfører form1.free før du i den nye form vælger close.

Og mellem de to linier:

form1 := tform1.create(application);
form1.free;

kan du så arbejde med de kontrols din nye form har, eller de avriable der er defineret i den nye forms public. eks.:

form1 := tform1.create(application);
form1.richedit1.text := \'Dette er en rig tekst\';
form1.showmodal;
if form1.richedit.text <> \'\' then
begin
  edit1.text := richedit1.text;
end;
form1.free;

i dette eks. propper du noget ind i richedit inden du viser formen, og når du forlader formen og kommer tilbage til dit program overføres det der er i richedit til et edit felt på din normale form.

Kan du se hvad jeg mener ?

Du skal tilføje Værktøjsformens unit under uses i din menu unit.
Derefter kan du referere til din edit med:

vaerktøjsform.richedit1.