[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