[Lazarus] How to destroy object / component by itself?

Anthony Walter sysrpl at gmail.com
Thu Dec 3 22:31:30 CET 2015


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-ide.org/pipermail/lazarus/attachments/20151203/0ef71300/attachment-0003.html>


More information about the Lazarus mailing list