Oluşturulan butonu yok etme

[ekank]

Merhaba, Uygulamada bir buton create ediyorum daha sonra bu butonda işim bitince yok olmasını. Fakat yok ederken adres hatası alıyorum bu sorunu nasıl çözebilirim?

  private
    { Private declarations }
    procedure xCreateClick(Sender: TObject);
  public
    { Public declarations }
  end;

procedure TMainForm.xCreateClick(Sender: TObject);
begin
  if Sender is TButton then
  begin
  //işlermer


    TButton(Sender).Destroy; //  yok et ????
    TButton(TButton(Sender).Name).Free; //  yok et ???
  end;
end;

procedure TForm.ButtonHavuzIptalClick(Sender: TObject);
begin
  With TButton.Create(Panel1) do
  begin
    OnClick := xCreateClick;
    Cursor := crHandPoint;
    Tag := 1;
    Name := 'Close';
    Align := alRight;
    Height := 25;
    Width := 50;
    Caption := 'Ekle';
    parent := Panel1;
  end;
end;

[Tuğrul HELVACI]

Proje yazmaya başlamadan evvel dilin ve ortamın temellerini öğrenmeniz sizin için çok faydalı olacaktır.

[tabikisura10]

+1 Bende merak ediyorum.

[Fesih ARSLAN]

(23-05-2020, Saat: 11:31)tabikisura10 Adlı Kullanıcıdan Alıntı: +1 Bende merak ediyorum.

Neyi merak ettiğinizi anlayamadım?

[mrmarman]

Size önerim, 
(1) Burada kodlarını paylaşmak üzere boş bir proje açın
(2) Yine panel içerisinde aynı yapıyı kurun
(3) Butona basınca, basılı buton yok olmuyorsa çıkan hatayla birlikte öyle sorunuzu yineleyin.  Çünkü "// işlemler" ile belirttiğiniz yerde belki de farklı iş yükü arasında kendisini ve/veya owner'ini, onun ownerini vs. birden fazla defa yok etmeye çalışıyor olabilirsiniz bunu bilemeyiz. 
Sorunuzda yazdığınız gibi soru işareti ile belirtmek istediğini kod satırlarını alt alta aynı anda yazıp çalıştırdığınız yanılgısı yaşıyor olabiliriz. 

Buradan çözüm için örnek kod yazmadan önce sizin takıldığınız yeri görmek isteriz.

[ekank]

Aynı kodları daha önce FMX tarafında kullanıyordum ve sorun yaşamıyordum. Fakat var olan VCL projemde kodları ekleyince hata almaya başladım.
Sorun VCL'den kaynaklanıyor sanıyordum

Hata kodu:
First chance exception at $0054EA85. Exception class $C0000005 with message 'access violation at 0x0054ea85: read of address 0x00000008'. Process Arsiv.exe (14964)


Tekrar VCL boş proje ile test yaptım hata vermedi. Var olan projemdeki hatayı nasıl çözerim?

[mrmarman]

Hata vermeyeceğine ilişkin kuşkum vardı zaten, onun için yazmıştım. Var olan projenizde kodları adımlayarak ( TRACE ) bir aşamada FREE edilmiş olan nesneyi yeniden FREE etmek istiyor olduğunuzu göreceksiniz. Bunu bulduğunuzda çözüm de orada olacak.

Şöyle bir senaryo kurayım değerlendirin:
* Bir dizi düşünün ( 1,2,3,4,5,6,7,8,9,10 )
* Aradan 5 numaralı olan nesenyi FREE ettik.
* Siz projenin bir yerinde tüm diziyi yok et dediniz. Döngüyü nasıl kurarsınız.
  - 1'den başlayıp 10'a kadar değil mi ? Arada (5) daha önce FREE edildiğine göre işte orada Access Violation hatası alınır. 

Kontrolünüz ne kadar etkin olursa olsun, free öncesi orada bir nesne var mı diye -  if Assigned( nesne )   veya   if nesne <> nil gibi - sormalısınız.

İşte sorununuza ilişkin senaryoya bunu da ekleyin.

[tabikisura10]

TButton* Btnn[10];

void __fastcall TForm1::Button1Click(TObject *Sender)
{
for (int i = 0; i < 10; i++) {
Btnn[i] = new TButton(Form1);
Btnn[i]->Parent = Form1;
Btnn[i]->Text   = i;
Btnn[i]->Position->Y = 30 * i;
}
}

void __fastcall TForm1::Button3Click(TObject *Sender){
for (int i = 0; i < 10; i++) {
Btnn[i]->Free();
}
}

ben böyle kullandım sildi.

[mrmarman]

@tabikisura10

Örneğin bir başka buton ile veya butonun kendisi ile Btnn[5]->Free();  ile 5 nolu indeksli olanını tekil olarak sildiniz.  

* Button3'e tıkladığınızda ne olur ? İşte @ekank 'nı karşılaştığı sorun böyle bir sorun bence.

[arsl01]

Merhaba ben şu şekilde yok ediyorum.

 RemoveObject(Tobject)

Fakat butona name vermeyin.