Başka formda procedur kullanmak

[lom]

s.a kolay gelsin arkadaşlar. bi procedure hazırladım form'um açıldığında çalıştırıyorum.

Kod: Tümünü seç

procedure TFRMYENIKOY.ACILANFORMDABUTONLAR();
begin
BTNYENIKAYIT.Enabled:=TRUE;
BTNKAYDET.Enabled:=FALSE;
BTNIPTAL.Enabled:=FALSE;
BTNSIL.Enabled:=TRUE;
GRID.Enabled:=TRUE;
end;

bu procedur'u başka formlar açıldığında da kullanabilirmiyim ?? Teşekkürler kolay gelsin

[Battosai]

Procedure u formun var bloğu üstünde bir yerde tanımla veya implementation altında tanımla böylece diğer unitlerde sadece ismiyle çalıştırabilirsin.Öteki türlü Form1.procedureadi şeklinde çalışır...

[aslangeri]

s.a.
açılan her form kendi üzerindeki aynı isimli buttonları mı ayarlayacak. yoksa hangi form açılırsa açılsın frmyenikoy un buttonlarını mı ayarlayacak.

[lom]

Hayır hocam hangi form açılırsa o formdaki butonlara hakim olmak istiyorum. Butonun ve formun adını parametre olarak gönderbilirmiyim acaba ?

[Battosai]

Kod: Tümünü seç

Procedure ACILANFORMDABUTONLAR
Begin
with Screen.ActiveForm do
Begin
TButton(FindComponent('kaydet')).Enabled:=True;
TButton(FindComponent('Yeni')).Enabled:=False;
End;
End;