Oluşturulan Nesne İle Alakalı

[tuanna]

Alında sorumu nasıl soracam bilmiyorum başlıkta saçma oldu....

Hangi nesne değişmişse ona göre iş yaptırmam lazım...


1- Runtime da iken nesne oluşturursan...(Atıyorum edit nesnesi)

private
procedure oleditchange(Sender: TObject);


procedure oleditchange(Sender: TObject);
begin

// bu aşamada hangi nesneden tıklandığını normalde sender parametresi ile ulaşmam lazım ama bir türlü yapamadım

end;

//////////////////////////////////////////////////
var
oledit:tedit;
i:integer;
cleft:integer;
Begin
for i:=0 to 10 do
begin
oledit:=tedit.create(self);
oledit.parent:form1;
oledit.change:=oleditchange;
oledit.name:='Edit'+inttostr(i);
oledit.left:=left;
left:=oledit.oledit.witdh+left;
end;
end;
////////////////////////////////////////////////////////////////////////


kolay gelsin arkadaşlar

[aLonE CoDeR]

Yöntem doğru, herhangi bir sıkıntı görünmüyor.

Kod: Tümünü seç

TEdit(Sender).Name

şeklinde deneyebilirsin...

Kolay gele..

[tuanna]

sağ ol
hocam