23-05-2020, Saat: 21:59
(Son Düzenleme: 23-05-2020, Saat: 22:02, Düzenleyen: Tuğrul HELVACI.)
(23-05-2020, Saat: 02:59)ekank Adlı Kullanıcıdan Alıntı: 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;
Güzel kardeşim, neden önce temel bilgileri öğrenin sonra proje geliştimeye çalışın diyorum biliyor musun ?
TButton(TButton(Sender).Name).Free; // yok et ???
Şu yazdığın koddan ötürü. Bir string ifadeyi TButton'a cast etmişsin ve bu konu altındaki mesajlarından birisinde FMX tarafında bu tarz kullanımların hata vermediğini ama VCL'de hata verdiğini söylemişsin.
Bu kullanım, proje türü ne olursa olsun hatalı bir kullanımdır. Rica ederim; bir şeyler geliştirmeye çalışmadan evvel, kendinizi geliştirmeye çalışın.
Okumak ve öğrenmek bu kadar zor değil inanın.
Mal sahibi, mülk sahibi
Hani bunun ilk sahibi ?
Mal da yalan mülk de yalan
Var biraz da sen oyalan...
Hani bunun ilk sahibi ?
Mal da yalan mülk de yalan
Var biraz da sen oyalan...