Formda gezerken bir yerde değişkenlerin global kullanılmasından bahsediliyordu. Ben değişkenleri kullanabiliyorum fakat ortak kullandığım bir procedure için de bunu yapmak istiyorum olması gerekiyor fakat ben başaramadım.
Kod: Tümünü seç
procedure Tform_gelen.enter_al(Sender: TObject; var Key: Char);
begin
if (Key=#13) then
begin
key:=#0;
Perform(WM_NEXTDLGCTL,0,0);
end;
if (Key=#27) then halt;
end;
Sanırım anlatabilmişimdir....
Bu bir örnek tabiki bunun gibi procedure'leri global olarak tanımlamak ve ortak kullanabilmek için başka ne yapmam veya nasıl yapmam gerekiyor.
Çok teşekkürler