Ĺadny brzuch
Mam taki program:
var Form1: TForm1; but : TButton; implementation {$R *.dfm} procedure TForm1.click(Sender: TObject); begin But.Free; end; procedure TForm1.FormClick(Sender: TObject); begin But := TButton.Create(Form1); But.Parent := Form1; But.Name := 'Button' But.onclick := click; end;
Button się oczywiście tworzy, ale gdy na nim kliknę wyskakuje mi błąd EAccessVolation. Jeżeli użyję polecenia But.Destroy to efekt jest taki sam. Jak więc usuwać dynamiczne komponenty :?
bo nie możesz go zwalniać po kliknięciu na niego !! podczep buf.Free pod coś innego
//----------------------
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na www.beldzio.com/beta
Ja tu czegoś nie rozumiem. Dziś ten sam kodzik, bez żadnych modyfikacji, działa poprawnie :! Co jest grane :? Chyba przyda się reinstalacja Delphina. Temat można zamknąć.
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
var Form1: TForm1; but : TButton; implementation {$R *.dfm} procedure TForm1.click(Sender: TObject); begin But.Free; end; procedure TForm1.FormClick(Sender: TObject); begin But := TButton.Create(Form1); But.Parent := Form1; But.Name := 'Button' But.onclick := click; end;
Button się oczywiście tworzy, ale gdy na nim kliknę wyskakuje mi błąd EAccessVolation. Jeżeli użyję polecenia But.Destroy to efekt jest taki sam. Jak więc usuwać dynamiczne komponenty :?
bo nie możesz go zwalniać po kliknięciu na niego !! podczep buf.Free pod coś innego
//----------------------
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na www.beldzio.com/beta
Ja tu czegoś nie rozumiem. Dziś ten sam kodzik, bez żadnych modyfikacji, działa poprawnie :! Co jest grane :? Chyba przyda się reinstalacja Delphina. Temat można zamknąć.