form key press olay prosedüründen kontrollü Memo bileşenlerine ek kod

[ferhatkuskaya]

Merhaba arkadaşlar ben yeni üyeyim. Öncelikle hepinize iyi günler ve çalışma hayatınızda başarılar diliyorum. Ben bu arada Klavye kontrollerinde pek fazla kod yazmamış biri olarak; İlk önce Form'un key pressine aşağıdaki gibi numerik girdilerimi label nesnelerine aktarmak için bütün girdilerimin numerik olmasını sağladım. Yaklaşık olarak 82 tane edit box gibi ve ebatları cok kücük bişekilde memo bileşeni ekledim. Fakat Eklediğim memo bileşeninlerinden bazıları alfanumerik kabul edecekmiş. Yaklaşık olarak 16 tane memo alfanumerik girdiyi kabul edecekmiş. Daha sonra ben bu memo ların birtanesinin onkeypress event prosedürünün içerisine şu şekilde kod yazdım
(*procedure TAnaform.Memo7KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9','A'+'Z']) then
begin
Key:=0#
Beep;
end;
end;
*)
Yazıdığım kodu derledikten sorna memo7 deki girdilerim gine numerik kısıtlıydı.bundan dolayı ikinci bir kod şartı koymalıyım Form keypress'in içerisine aşağıdaki kod satırını nasıl bir kod yazmalıyım. lütfen bana yardım edermisiniz?

procedure TAnaform.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (not (Key in ['0'..'9',#8])) then
begin
Key:=#0;
Beep;
end;

[turkerunutmaz]

Yazdıklarınızdan pek bişey anladığım söylenemez açık olarak ne yapmak istediğinizi yazarsanız yardımcı olabilirim.

[ferhatkuskaya]

Arkadaşlar bana bir check box a tıkladığımda 3 tane image 'i sürekli olarak sırayla 2 şer saniye ile gecikmeli visible olmasını sağlayacak bir timer kontrol kodu yazarmısınız? Ben iki saattir uğraştım yapamadım. bana yardımcı olursanız sevinirim. Saygılarımla
Bu arada keypress sorununu farklı bir yolla hallettim(ortak keypress event paylaşımıyla) yardımınız için teşekkür ederim.