Dll den Form'a müdahele

[CiTiZEN]

Slm Arkadaşlar Bir Dll Dosyasından Formmdaki Bir Caption Veya Text i değiştirebilirmiyiz Elinizde Kod SAtırı Varsa Paylaşabilirmisiniz Tşkler...

[Jire]

elimde yok ama bi tane yapim belki çalışır.

procedure yenicap(form:tform; cap:string); export;
begin
form.caption := cap;
end;

exports yenicap;

yukardaki kod dll için.
dll yaratmayı biliyorsan yaparsın.

asıl programda ise her hangi bi butona bunu koyarak çalıştırırsın.
yenicap(self,'yeni caption');

[CiTiZEN]

Dll Yapmayı Biliyorum hocam Ellerinize Sağlık Deneyeceğim Saolun

[CiTiZEN]

Hocam Denedim Kodlar Çalışıyor Fakat Bi sorum daha olacak bu şekilde bir form üzerindeki bir buttonun captionu nu değiştirebilirmiyim,kodları varsa yazabilirmisiniz teşekkürler.

[Jire]

yine aynı sadece tform un yanına tbutton ekliceksin.

procedure yenibtncap(form:tform; btn:tbutton; cap:string); export;
begin
form.btn.caption := cap;
end;

exports yenibtncap;


yenibtncap(form1,button1,'yeni caption');
button istediğin formla aynı yerde ise self i de kullanabilirsin.

[CiTiZEN]

Çok saolun hocam ama dediğinizi yaptım btn:tbutton satırında tbutton da hata veriyor uses e 'buttons' eklememe rağmen 'undeclared identifier:'Tbutton' hatası veriyor uses a TButton Ekedigimde ie File not found:Tbutton.dcu hatası veriyor hata nerde yardımcı olabilirmisiniz. Şimdiden saolun.

[Jire]

Çok saolun hocam ama dediğinizi yaptım btn:tbutton satırında tbutton da hata veriyor uses e 'buttons' eklememe rağmen 'undeclared identifier:'Tbutton' hatası veriyor uses a TButton Ekedigimde ie File not found:Tbutton.dcu hatası veriyor hata nerde yardımcı olabilirmisiniz. Şimdiden saolun.

uses a TButton ekleyemezsin orası sadece dcu(sıkıştırılmış pas) ve paslar için.

koddaki hatamı buldum düzelttim.

procedure yenibtncap(form:tform; btn:tbutton; cap:string); export;
begin
with form do
begin
btn.Caption := cap;
end;
end;

exports yenibtncap;


örnek kullanım:
yenibtncap(self,button1,'yeni caption');

şimdi olur sanırsam

[CiTiZEN]

Yine ayni hatayı verdi hocam

Kod: Tümünü seç

procedure yenibtncap(form:tform; btn:tbutton; cap:string); export;

da btn:Tbutton da undeclared identifier saolun zahmet verdim gerçekten ellerinize sağlık

[Jire]

Yine ayni hatayı verdi hocam

Kod: Tümünü seç

procedure yenibtncap(form:tform; btn:tbutton; cap:string); export;

da btn:Tbutton da undeclared identifier saolun zahmet verdim gerçekten ellerinize sağlık

Al.Dll kullanmadım nasıl olsa biliyorsun form içi kodun kullanımı.
http://www.dosyaupload.net/download.php?file=878576

[CiTiZEN]

Jire Saolasın Hocam Çok İkrama Geçti.

[undefined]

viewtopic.php?t=21219&highlight=

[CiTiZEN]

Undefined Hocam Çok Saolun Gerçekten Büyük İkrama Geçti.