Hallo
wenn ich meine Form resize dann kommt dieser Fehler :
Delphi-Quellcode:
---------------------------
Benachrichtigung über Debugger-
Exception
---------------------------
Im Projekt Lampen.exe ist eine
Exception der Klasse EOutOfResources mit der Meldung '
Für diesen Befehl ist nicht genügend Speicher verfügbar.
' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------
Delphi-Quellcode:
procedure TForm11.FormResize(Sender: TObject);
begin
TimerRefresh.Enabled := false;
CircleScope.Free;
CircleScope := TCircleScope.Create(PaintFrame.Width, PaintFrame.Height);
CircleScope.Pen:= $00804000;
CircleScope.Offset := TrBOffset.Position;
CircleScope.Radius := TrBRadius.Position;
TimerRefresh.Enabled := true;
end;
Hier soll das alte CircleScope zerstört und ein neues erstellt werden. Beim jedem resize braucht das ding ca. 50MB mehr Speicher. Da ist der bald voll. Zerstöre ich das irgendwie nicht richtig ?
MfG