Vis ny form

FORMNAVN.Showmodal;

HUSK LIGE AT FORMNAVN skal være Variabel navnet

Rigtigt : Form2.ShowModal;

Forkert : TForm2.ShowModal;

hvis du bruger showmodal, så kommer du ikke retur før du lukker form2
brug evt.

Form2.visible:=True;

ShowModal = ikke retur før luk af form

Show ( Visible := TRUE ) = retur med det samme, begge forms kan modtage input fra bruger

Jeg har altså lige findet ud af at man skal skrive Unitname under USES og så skal man så kalde det Unit1.Form1.Show; f.eks.

Er det ikke korrekt?

ikke helt

det er rigtigt at du skal have unit navn med under uses men du skal kun skrive
form1.visible:=True;

procedure TForm1.Button19Click(Sender: TObject);
begin
form12.visible:=True;
end;

Jeg kan altså ikke få det til at virke på andre måder end den måde jeg har skrevet. Jeg kan ikke kalde noget direkre på form1 f.eks. Jeg skal have UnitName med først.

Der er overordnet to måder at vise forme på i Delphi: Hvor formene automatisk er oprettede og dem hvor du opretter/viser/nedlægger dem. Den første er desværre default i Delhi.

En form kan så være modal eller modalless. Det betyder hhv. at den ligger ovenpå de andre forme i dit program. Den sidste, at du kan klikke (og få fokus) på andre forme i programmet.

Nu har vi altså 4 måder at vise en form på:
1. Delphi autoopretter Modal-form
2. Delphi autoopretter Modalless-form
3. Du opretter Modal-form
4. Du opretter Modalless-form

I det nedenstående forudsætter jeg en mainform som skal vise din nye form. Den nye form (her kaldet SubForm) er inkluderet i mainformen vha. Alt-F11 (når du står i mainformen).

Der er oprettet en knap som skal vise formen når man trykker på den.

ad 1.

procedure TMainForm.Button1Click(Sender : TObject);
begin
  if SubForm.ShowModal = mrOK then .. // hvis formen skal returnere et resultat
  begin
  end;

  // eller

  SubForm.ShowModal; // hvis intet returneres
end;

ad 2.

procedure TMainForm.Button1Click(Sender : TObject);
begin
  SubForm.Show; // Her er ikke meget andet man kan gøre.
end;

SubFormen kalder bare Close når den skal forsvinde igen.

ad. 3

procedure TMainForm.Button1Click(Sender : TObject);
begin
  SubForm := TSubForm.Create(self)
  try
    if SubForm.ShowModal = mrOK then .. // hvis formen skal returnere et resultat
    begin
    end;

    // eller

    SubForm.ShowModal; // hvis intet returneres

  finally
    SubForm.Free; // Alternativt brug: SubForm.Release;
  end;
end;

ad 4.

procedure TMainForm.Button1Click(Sender : TObject);
begin
  if not assigned(SubForm) then
    SubForm := TSubForm.Create(self)
  SubForm.Show;
end;

// I Subformens OnClose og OnDestroy event skrives

procedure TSubForm.FormClose(Sender : TObject; var Action: TCloseAction);
begin
  Action := caFree; // Sørger for at frigive når der lukkes
end;

procedure TLevAftaleForm.FormDestroy(Sender: TObject);
begin
  SubForm := nil; // Nulstiller den ”globale” variabel så assigned fungerer næste gang
end;

Når vi nu er igang med Skole-delphi, så kan man også bruge FreeAndNil() den free'er dit object og sætter variablen til NIL i et hug.

Det er jo imponenrende hvad man får for 15 point's :)

Der er lang vej op til Borrisholt :-)