gibi bir kod ile bir sonraki nesneye geçiyoruz. Bu kadar her nesnin onkeypress'ine bu kodu yazmaktansa bir procedure yada ne bileyim bir fonksiyon tanımlayıp bu işlemi başka bir yöntem ile yapamazmıyız.
Şimdiden Çok Teşekkür Ediyorum...
Var olmaya değer her şey bilinmeye de değerdir. Çünkü bilgi varlığın bir imgesidir. Onda iyi ve kötü aynı anda bulunmaktadır...
if key=#13 then
begin
perform(WM_NEXTDLGCTL,0,0);
key:=#0;
end;
Bu şekilde çalışıyor hocam. Ayrıca benim yapmak istediğim formda 30 tane edit varsa hepsine tek tek bunları girmemek tanımladığımız bir fonksiyon yada procedure tek satır kod ile çağırmak gibi..
Yinede teşekkür ederim...
Var olmaya değer her şey bilinmeye de değerdir. Çünkü bilgi varlığın bir imgesidir. Onda iyi ve kötü aynı anda bulunmaktadır...
kullandığınız nesnelerin keypress olaylarını FormShow keypress olayına bağlamanız yada, bunun için tek yer yapmanız istediğinizi elde etmenizi sağlar zaten....!
"Ne irfandır ahlaka yükseklik veren ne vicdandır.Fazilet hissi insanlarda Allah korkusundandır."
if Key = #13 then
begin
Key := #0;
PostMessage( Handle, WM_KEYDOWN, 09, 0 );
end;
kodunu yazalım sonrada,
2 - Form üzerinde enter ile geçiş yapılmasını istediğimiz nesnelerin keypress olayına gidelim, yandaki kutucuğunu seçerek burdan FormShowKeypress 'ine bağlayalım. bu kadar...
"Ne irfandır ahlaka yükseklik veren ne vicdandır, Fazilet hissi insanlarda Allah Korkusundandır. "
procedure TFrom1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
perform(WM_NEXTDLGCTL,0,0);
key:=#0;
end;
end;
Edit1OnKeyPerss olayına kodu yazdıktan sonra. diğer edit nesnelerinin KEYPRESS olayları için de "Edit1KeyPress" yazarsan tüm edit nesneleri için aynı olay (Edit1KeyPress) gerçekleşir.
Nasıl ki sen kendin bir procedure yazdığında ismi ile istediğin yerden yazdığın proc.çağırabiliyorsun, aynı şekilde istetiğin EDIT nesnelerinde ONKEYPRESS olayı için EDIT1KeyPress seçerek olay zamanında aynı kodu çağırmış oluyorsun.
Kolay gelsin
Bugün bir kez daha,
Hiç Birşey Bilmediğimi Öğrendim!!!
Bu topik fazlamı uzamış yoksa benmi konuyu anlayamadım acaba?
Enter tuşuna tab tuşunun yaptığını yaptıran kodu formun onkeypress olayına yazıp, bir biri arkasına gelmesini istediğniz(Yani geçiş sırası) TabOrder propertieslerini sıraya dizdinizmi olay biter.Ne hepsine kod yazmaya gerek var, ne de birine yazdığınız kodu diğerlerinin keypresslerinde çağırmaya....
dosmove componenti bilgisi için öncelikle teşekkür ederim.
componenti kullanmaya başladıktan sonra OnKeyDown olayı devre dışı kalmaya başladı. companentla bir ilgisi varmı?