kald til anden form

Hvad er den uforståelige fejl? :)

fejlen er en access violation

så prøver du at få fat i noget der ikke er oprettet. hvornår starter du ovenstående kode?

for at forklare:

var
  someLabel: TLabel;
begin
  //hvis jeg allerede nu vil tilgå someLabel får jeg en access violation
  someLabel.Caption := 'Niks, det må man ikke';
end;

Løsningen er at sørge for at someLabel er oprettet:

var
  someLabel: TLabel;
begin
  someLabel := TLabel.Create(Self); //someLabel er nu oprette og kan bruges.
  someLabel.Caption := 'Niks, det må man ikke';
end;
 

Jeg mistænker at du ved OnCreate for din hovedform, prøver at tilgå din opsætningsform. Men denne er endnu ikke oprettet og du får en access violation fejl.

kan jeg så ikke create min opsætningsform ved oncreage f.eks via  Frmopsaetning.Create();

I så fald skal du først slå den fra under Project > Options, ved at fjerne din opsætningsform fra Auto-create listen.

Du skal så oprette din form på følgende måde:

begin
fmropsaetning := Tfmropsaetning.create(Self);
If Frmopsaetning.CheckBox1.Checked = True then
Begin
Screen.Cursor := crHourGlass;

NU HAR JEG GJORT SOM DU SKRIVER MEN NU FÅR JEG DENNE FEJL


[Error] hovde.pas(103): Undeclared identifier: 'fmropsaetning'

Jeg har blot været lidt fumlefingret (men det betyder ikke at du kan kikke min "kopi" af din kode efter)

frmopsaetning := Tfrmopsaetning.create(Self);

Hvis alle formene er autokreeret (se skift-ctrl-f11) så er det lige meget hvornår man tilgår dem - de er oprettet. Formens OnCreate bliver ikke kørt før alt er oprettet, men hvis du overstyrer constructoren så kommer den pludselig først.

(Det var dog nogle små indtastningsfelter de har lavet...)

Jeg gætter på at din anden form ikke er autooprettet - hvilket er sådan som man bør gøre det.

Hvis du vil åbne en anden form (modalt) så er det noget lignende dette:

procedure ...
var
  Option1 : boolean;
begin
  frmOpsaetning := TfrmOpsaetning.Create(self);
  try
    if frmOpsatning.ShowModal = mrOK then begin // en knap's modalresult er sat til mrOK
      Option1 := CheckBox1.Checked;
  finally
    frmOpsaetning.Free; // alt. brug .Release
  end;

  // Kunne godt være inde i "frmOpsaetning.showmodal"...
  // men jeg foretrækker at frigive formen med det samme. Det er en smagssag
  if Option1 then begin
    // Gør hvad du nu vil her.
  end;