Edit Nesnesi

[tolga.onder]

Merhabalar,


Edit nesnesinin OnKeyPress, OnExit gibi Event larına ihtiyacım doğrultusunda kodlar yazıyorum. Haliyle formumda birden fazla Edit nesnesi kullandığımda her eventa kod yazmak veya kopyala yapıştırmak yapmak sıkıcı oluyor. Ayrıca unit de kod kirliliğinden kaynaklanan,  kodun okunmasında ve takibinde sıkıntılar yaşıyorum. Birkere bu Edit nesnesini ve Eventlarını ihtiyacım doğrultusunda ayarlasam bu nesneden başka nesne türetip Component Palete  eklesem ve kullansam olurmu ? Olursa nasıl olur ?

[Analyzer]

Selam,

İstediğiniz kısımları bir function içinde toplayıp, global olarak tanımlar ve diğer tüm eventler içinden çağırabilirsiniz. Ya da Global yapmayıp, class'ına dikkat ederek de çağırabilirsiniz. Ancak bir component gibi yapacağım diyorsanız, bir component oluşturur, TEdit nesnesini "derived" olarak çağırıp, kendi komponentinizi de yazabilirsiniz.

Analyzer

[orhanc]

Tüm editlerde aynı kodu mu kullanıyorsun ? Eğer öyle ise prosedureleri bir kere yazıp tüm editleri ona bağlaman yeterli olacaktır.

Örnek Vermek Gerekirse

procedure Tform1.edit1KeyPress(Sender: TObject; var Key: Char);
begin
  KeyCheck(Key);
end;

procedure KeyCheck(var Key: Char);
begin
  case Key of
  '0'..'9'  : ;
  ','       : ;
  #8        : ;
  else
    Key:=#0;
  end;
end;

tarzı bir genel prosedure oluşturup her yerde kullanabilirsin.

[tolga.onder]

Cevap veren tüm arkadaşlara teşekkürler. Şu an Procedure leri kullanmak pratik gibi duruyor.