arkadaşlar

ben burada size bir ornek vereyim gerisi sizin hayal gucunuze kalmış. ayrıntılı bilgi icin delphinin yardımına bakın.

procedure deneme(Sender: TObject; var Done: Boolean);

ilkonce şu procedure yi oluşturun
ve icine

if activecontrol is TEdit then
showmessage('Edit icindesiniz');

yazın


ve formun create olayına

application.OnIdle := deneme;
yazın

kolay gelsin
__________________