Destroy objekt ved event...

Fra delphis hjælp

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.

Send evt. din egen meddelelse til den Form der ejer componentet, og lad så denne free\'e den:

Nedenstående viser hvordan du tilføjer \"din egen meddelelse\" til en class (husk:  \"USES MESSAGES\"):
<SNIP>
const
  WM_DisconnectClient := WM_User + 1;

type
  TEnEllerAndenForm = Class(TForm)
  //...
    public
    Procedure WMDisconnectClient(var Msg: TMessage); message WM_DisconnectClient;
  end;

//...
Procedure TEnEllerAndenForm .WMDisconnectClient(var Msg: TMessage);
var
  DCC : TDCC; 
begin
  DCC := TDCC(Msg.WParam);
  if DCC <> Nil then DCC.Free;
end;
<SNIP>

Når du så vil free\'e din client evt. i din DoClientDisconenct så kunne du skrive flg:
<SNIP>
procedure TDCC.DoClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  PostMessage(EnEllerAndenForm.Handle, WMDisconnectClient, LongInt(self), 0);
end;
</SNIP>

Som alternativ til PostMessage findes der også en der hedder SendMessage. Forskellen ligger i at PostMessage blot placere meddelelsen i meddelelses køen hvorefter programmet forsætter, hvor imod SendMessage ikke fortsætter før meddelelsen er udført. I dit tilfælde SKAL du bruge PostMessage da du netop IKKE må dispose dit object før du har afsluttet den meddelelse du p.t. er ved at udføre (nemlig din DoClientDisconnect).

Hvis du bruger NetMasters comp. så skynd dig at skift til INDY, det er meget bedre comp. og med source. www.delphi-jedi.org

/Martin

Pellelil: Jeg kan ikke bare bruge EnEllerAndenForm.Handle som første parameter i Postmessage så kommer der en fejl..

Jeg mener dog der er en eller anden function som kan give mig formens handle.. noget du kan hjælpe med?

på forhånd tak!

Jeg ved ikke hvilke forms du har i dit program. Du skal således sende meddelelsen \"med PostMessage\" til \"EN ELLER ANDEN FORM\" som du har, og det er denne form der så skal være i stand til at behande meddelelsen. Jeg viste blot et eksempel på hvordan det kunne gøres (i så fald du havde haft en der hed TEnEllerAndenForm)

jeps ved ved jeg... jeg tror også det virker.. bortset fra at jeg ikke bare kan skrive f.eks. EnEllerAndenForm.Handle som første parameter i PostMessage for så kommer delphi med en fejl..

mit problem er altså at jeg skal finde den forms handle på en anden måde? .. jeg mener der er en eller anden function til dette?

Du skal naturligvis have en variable der peger på din form.

Standard formen i et nyt Delphi program hedder Form1.
I eksemplet skal du så skrive (hvis du altså vil lukke Form1) Form1.Handle

Alle Delphi forms har deres handle som property\'en \'Handle\'.  Du skal således ikke ned i noget API snavs (ud over altså PostMessage i sig selv) for at finde en funktion der giver dig din handle.

I dit eksempel ser det ud til at du vil lukke en form af typen TDCC.  Din form hedder således (sandsynligvis) \'DCC\'.

Håber det hjalp

Peter