13. september 2007 - 10:14Der er
9 kommentarer og 1 løsning
Show/hide ekstra form
Hej,
Jeg har en applikation som udelukkende vises med TTrayIcon som har en TPopupMenu hvor man bl.a. kan vælge "Indstillinger" i menuen som åbner formSettings. Mainformen er:
Application.ShowMainForm := False;
formSettings åbnes med:
procedure TForm1.popIndstillingerClick(Sender: TObject); begin if not Assigned( FormSettings ) then FormSettings := TFormSettings.Create(nil); FormSettings.Show; end;
Og når den lukkes:
procedure TFormSettings.FormClose(Sender: TObject; var Action: TCloseAction); begin Action:= caFree; end;
Det går alt sammen fint første gang jeg åbner og lukker formen, men 2. gang jeg åbner formen får jeg en exception access violation fejl.
Er der nogen der kan hjælpe med en løsning? Alternativt kan jeg smide et helt call stack output fra madExcept hvis det er nødvendigt. Men jeg antager, at det er noget med det caFree og Create(nil) halløj.
Det er sikkert fordi din FormSettings var ikke er "ordenligt nil" for det gør .Free nemlig ikke :( og så kan "Assigned( FormSettings )" ikke finde ud af det.
men hvorfor spørger du om den er assigned, du laver jo en free hvergang du lukker, så du kan jo bare antage at den skal creates hvergang
med hrc's løsning, skulle din første kode med assigned-check virke :) ( og være pænere )
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.