پیمایش روی عناصر صفحه با فشار دادن کلید

[net_ved]

سلام
من یه برنامه دارم پر ار کلید و edit می خوام با فلشها و Enter بشه رو عناصر برنامم پیمایش کرد البته این

کارو با کدنویسی بلدم....اگه کسی کمپوننت free داره لطفا به منم بده....پیشا پیش سال نوتون مبارک

[Touska]

داخل رویداد OnkeyPress این کد را بنویسید :


IF Key = Char(VK_RETURN) Then
Begin
Key := #0;
Edit2.setfoucs;
End;


موفق باشید :موفق:

[Touska]

با کامپوننت های JVC که رایگان هم هسنتد می تونی این کار را انجام بدی

موفق باشید :موفق:

[JavanSoft]

با کامپوننت های JVC که رایگان هم هسنتد می تونی این کار را انجام بدی
بدلیل باگ های آن توصیه نمی شود

[Delphi-Clinic]

سلام




procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
Direction: Integer;
begin
Direction:= -1;

case Key of
VK_DOWN,VK_RETURN: Direction:= 0;//Go to Next Control.
VK_UP: Direction:= 1; //Go to Previous Control.
end;

if (Direction <> -1) then
begin
Perform(WM_NEXTDLGCTL,Direction,0);
Key:= 0;
end;
end;





Form1.KeyPreview:= True

[net_ved]

مر30 از همه...ولی من کامپوننت می خوام....یعنی دقیقا اسم کامپوننتیو که این کارو می کنه

[moradi_am]

اینم یک کامپوننت ساده و توپ

[net_ved]

اقا یه دنیا ممنون.....و یه چیزی در رابته به کدایی که دوستان دادن...اگه بخوام از enter به جای فلش استفاده کنم باید از...vk_enter استفاده کنم؟....اصلا دلفی vk_enterنمی شناسه...آخه چرا؟

[Touska]

VK_Enter که نه VK_RETURN رو می شناسه

موفق باشید :موفق:

[moradi_am]

اینم یک کامپوننت که Enter را بجای TAB استفاده میکند