Hi,

How to destroy object or component in its own method (do this in next message queue)? Currently I'm using Application.QueueAsyncCall but IIRC there is special routine in FPC/LCL but can't find. For example Qt has myobject.qDeleteLater()

Regards
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20151203/ca769da9/attachment.html>

procedure TForm1.FormCreate(Sender: TObject);
begin
  FRecycleBin := TObjectList.Create(True);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
  FRecycleBin.Free;
end;
procedure TForm1.ApplicationProperties1Idle(Sender: TObject; var Done:
Boolean);
begin
  FRecycleBin.Clear;
  Done := True;
end;

...
FRecycleBin.Add(SomethingToJunkLater);
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20151203/0ef71300/attachment.html>

Krzysztof wrote

How to destroy object or component in its own method (do this in next message queue)? Currently I'm using Application.QueueAsyncCall but IIRC there is special routine in FPC/LCL but can't find. For example Qt has myobject.qDeleteLater()

Application.ReleaseComponent()?

Bart

For forms and decendants, TForm.release

Other objects, you just call free

Marc

Krzysztof wrote

How to destroy object or component in its own method

You can do a "pseudo-finalizer" method in an object that just ends by "Free;".

Here you (e.g. ion a thread) can create an object and queue that function via TThread.Queue, TThread.Synchronize, or Application.QueueAsyncCall. Now the object is automatically freed without you needing to bother about saving it (i.e. a pointer to same) in a variable.

(AFAIK implementing "real" finalizer methods - supposedly just syntax candy for exactly this) has already been discussed in the FPC developers message list)

-Michael