/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Havd betyder denne fejl
Fra : Michael Vilhelmsen


Dato : 13-02-02 12:21

Win32 Error. Code: 1400.
Ugyldig vindues-handle

Den kommer i forbindelse med dette:

frmUdskTransportVarer := nil;
try
frmUdskTransportVarer := TfrmUdskTransportVarer.Create(nil);
frmUdskTransportVarer.qrTransportVarer.PreviewModal;
finally
frmUdskTransportVarer.Free;
frmUdskTransportVarer := nil;
end;

Fejler kommer ved .FREE kaldet.



--
Med venlig hilsen / Best Regards
Michael Vilhelmsen
Remove.NoSpam from email before replaying !





 
 
Anders Holm Jensen (13-02-2002)
Kommentar
Fra : Anders Holm Jensen


Dato : 13-02-02 12:40

"Michael Vilhelmsen" <ccc37780.NoSpam@vip.cybercity.dk> skrev i en
meddelelse news:m%ra8.8196$5L3.420283@news010.worldonline.dk...
> Win32 Error. Code: 1400.
> Ugyldig vindues-handle
>
> Den kommer i forbindelse med dette:
>
> frmUdskTransportVarer := nil;
> try
> frmUdskTransportVarer := TfrmUdskTransportVarer.Create(nil);
> frmUdskTransportVarer.qrTransportVarer.PreviewModal;
> finally
> frmUdskTransportVarer.Free;
> frmUdskTransportVarer := nil;
> end;
>
> Fejler kommer ved .FREE kaldet.
Hej

Jeg fandt dette i hjælp, jeg ved ikke om det kan hjælpe ?

Hilsen AHJ

Destroys an object and frees its associated memory, if necessary.

procedure Free;

Description

Use Free to destroy an object. Free automatically calls the Destroy if the
object instance is not nil. Any object instantiated at runtime that does not
have an Owner should be destroyed by a call to Free, so that the object can
be properly destroyed and the memory released. Free is successful even if
the object is nil, so if the object was never initialized, for example,
calling Free won't result in an error.

When you call Free for a component, it will call Free for all components
that it owns, that is, all components in its component list. A form owns all
the controls and non-visual components that are created on it in design
mode. When it is freed, all of these components are automatically freed as
well. Since, by default, all forms are owned by the Application object, when
the application terminates, it frees the Application object, which frees all
forms. For all objects that are not components, or for components created by
a nil owner, be sure to call Free after you are finished with the object;
otherwise the memory allocated to the object will not be usable until after
the application terminates.

You should never explicitly free a component within one of its own event
handlers, nor should you free a component from an event handler of a
component the component owns or contains. For example, you should avoid
freeing a button in its OnClick event handler. Nor should you free the form
that owns the button from the button's OnClick event.

If you want to free the form, call the Release method, which destroys the
form and releases the memory allocated for it after all its event handlers
and those of the components it contains are through executing.

>
>
>
> --
> Med venlig hilsen / Best Regards
> Michael Vilhelmsen
> Remove.NoSpam from email before replaying !
>
>
>
>



Thomas Munk (13-02-2002)
Kommentar
Fra : Thomas Munk


Dato : 13-02-02 15:12

Jeg mener at man altid bør bruge Release i stedet for Free når det fælder
Forms.

Tjek evt. hjælp til TCustomForm.Release


"Michael Vilhelmsen" <ccc37780.NoSpam@vip.cybercity.dk> wrote in message
news:m%ra8.8196$5L3.420283@news010.worldonline.dk...
> Win32 Error. Code: 1400.
> Ugyldig vindues-handle
> Den kommer i forbindelse med dette:
>
> frmUdskTransportVarer := nil;
> try
> frmUdskTransportVarer := TfrmUdskTransportVarer.Create(nil);
> frmUdskTransportVarer.qrTransportVarer.PreviewModal;
> finally
> frmUdskTransportVarer.Free;
> frmUdskTransportVarer := nil;
> end;
>
> Fejler kommer ved .FREE kaldet.



Michael Vilhelmsen (13-02-2002)
Kommentar
Fra : Michael Vilhelmsen


Dato : 13-02-02 15:58

Det kan godt være, at du har ret.

problemet er bare, at jeg HAR lavet en appliction med ca. 300 forms i, og
alle disse kaldes med FREE til sidst.

Under alle omstædigheder virker det, hvis jeg bruger RELEASE.



--
Med venlig hilsen / Best Regards
Michael Vilhelmsen
Remove.NoSpam from email before replaying !


"Thomas Munk" <thomasmunk@ofir.dk> skrev i en meddelelse
news:3c6a73f3$0$62881$edfadb0f@dspool01.news.tele.dk...
> Jeg mener at man altid bør bruge Release i stedet for Free når det fælder
> Forms.
>
> Tjek evt. hjælp til TCustomForm.Release
>
>
> "Michael Vilhelmsen" <ccc37780.NoSpam@vip.cybercity.dk> wrote in message
> news:m%ra8.8196$5L3.420283@news010.worldonline.dk...
> > Win32 Error. Code: 1400.
> > Ugyldig vindues-handle
> > Den kommer i forbindelse med dette:
> >
> > frmUdskTransportVarer := nil;
> > try
> > frmUdskTransportVarer := TfrmUdskTransportVarer.Create(nil);
> > frmUdskTransportVarer.qrTransportVarer.PreviewModal;
> > finally
> > frmUdskTransportVarer.Free;
> > frmUdskTransportVarer := nil;
> > end;
> >
> > Fejler kommer ved .FREE kaldet.
>
>



Michael Vilhelmsen (13-02-2002)
Kommentar
Fra : Michael Vilhelmsen


Dato : 13-02-02 16:01

Som sagt virker release.

Men ikke på en Data Model.
Her skal jeg stadigvæk klade FREE eller hvad ?



--
Med venlig hilsen / Best Regards
Michael Vilhelmsen
Remove.NoSpam from email before replaying !


"Thomas Munk" <thomasmunk@ofir.dk> skrev i en meddelelse
news:3c6a73f3$0$62881$edfadb0f@dspool01.news.tele.dk...
> Jeg mener at man altid bør bruge Release i stedet for Free når det fælder
> Forms.
>
> Tjek evt. hjælp til TCustomForm.Release
>
>
> "Michael Vilhelmsen" <ccc37780.NoSpam@vip.cybercity.dk> wrote in message
> news:m%ra8.8196$5L3.420283@news010.worldonline.dk...
> > Win32 Error. Code: 1400.
> > Ugyldig vindues-handle
> > Den kommer i forbindelse med dette:
> >
> > frmUdskTransportVarer := nil;
> > try
> > frmUdskTransportVarer := TfrmUdskTransportVarer.Create(nil);
> > frmUdskTransportVarer.qrTransportVarer.PreviewModal;
> > finally
> > frmUdskTransportVarer.Free;
> > frmUdskTransportVarer := nil;
> > end;
> >
> > Fejler kommer ved .FREE kaldet.
>
>



Thomas Munk (13-02-2002)
Kommentar
Fra : Thomas Munk


Dato : 13-02-02 17:07

"Michael Vilhelmsen" <ccc37780.NoSpam@vip.cybercity.dk> wrote in message
news:fdva8.8653$5L3.426331@news010.worldonline.dk...
> Som sagt virker release.
>
> Men ikke på en Data Model.
> Her skal jeg stadigvæk klade FREE eller hvad ?


Ja, TDataModule er ikke en form (ikke nedarvet fra TCustomForm). Derfor
ingen Release, men derimod go'e gamle Free...



Michael Vilhelmsen (13-02-2002)
Kommentar
Fra : Michael Vilhelmsen


Dato : 13-02-02 20:51

Tusind tak.

Michael

"Thomas Munk" <thomasmunk@ofir.dk> skrev i en meddelelse
news:3c6a8ee8$0$62868$edfadb0f@dspool01.news.tele.dk...
> "Michael Vilhelmsen" <ccc37780.NoSpam@vip.cybercity.dk> wrote in message
> news:fdva8.8653$5L3.426331@news010.worldonline.dk...
> > Som sagt virker release.
> >
> > Men ikke på en Data Model.
> > Her skal jeg stadigvæk klade FREE eller hvad ?
>
>
> Ja, TDataModule er ikke en form (ikke nedarvet fra TCustomForm). Derfor
> ingen Release, men derimod go'e gamle Free...
>
>



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste