form üzerindeki seçili nesneyi free etmek (Çözüldü)

[kahraman1285]

Formun üzerinde birkaç tane Tcximage var(devexpress) bunlardan bazılarını free etmek istiyorum ama free etmek istediğim image nesnelerini run time da create ediyorum.

Bu durumda kullanıcı image nesnesine tıkladıktan sonra ayrı bir buton olan sil butonuna bastığında image free etmek istiyorum.

Seçili image free etmek istediğimden kullanıcının hangi image tıkladığını onclick olayına bi değişken tanımlama haricinde nasıl yapabilirim.

Aktif nesneyi :en son tıklanan nesneyi

Kod: Tümünü seç

Activecontrol:TWinControl

ile bulma imkanı var mı? nasıl?
herkese teşekkürler.

[kahraman1285]

Olaya şöyle bi çözüm getirdim: 35 salisede bir timera kontrol yaptırıyorum.

Kod: Tümünü seç

procedure Tform1.Timer1Timer(Sender: TObject);
begin
if (ActiveControl is TcxImage) then
  begin
      NesneAdi:=ActiveControl.Name;
  end;
end;

sonra Global değişken olan Nesneadi (string)

Kod: Tümünü seç

procedure Tform1.Button8Click(Sender: TObject);
begin
FindComponent(nesneadi).Free;
end;

sil butonuna tıkladığında nesne free ediliyor.

Peki bunu timer kullanmadan başka bi şekilde çözebilirmiyim?