PDA

View Full Version : RadioButton



me1364
یک شنبه 30 تیر 1387, 21:04 عصر
من یه فرم دارم که توش 10 تا رادیو باتن داره حالا میخوام بدونم چطور میتونم با کلید اینتر بین این 10 تا حرکت کنم؟

Loveski
یک شنبه 30 تیر 1387, 21:31 عصر
سلام
از کامپوننت Enter_Tab می تونی استفاده کنی.
از دستور
SelectNext(ActiveControl,true,true) ;
هم می تونی استفاده کنی ولی فکر کنم برای Radio ها جواب نمی ده.

Hsimple11
یک شنبه 30 تیر 1387, 21:37 عصر
از SelectNext استفاده کنید.(در رویداد OnKeyDown یا OnKeyPress)ا


procedure SelectNext(CurControl: TWinControl; GoForward, CheckTabStop: Boolean);

Hsimple11
یک شنبه 30 تیر 1387, 21:39 عصر
ولی فکر کنم برای Radio ها جواب نمی ده.

جواب می دهد!

پارامتر سوم آن را بسته به TabStop کنترلهای خود Set کنید. اگر TabStop نداشته باشد و یا TabOrder بعدی نباشد اجرا نخواهد شد.

میتوانید عمل Tab VirtualKey را نیز Override کنید.

etedali
چهارشنبه 30 مرداد 1387, 00:26 صبح
سلام به همگی.
من این کد را دربرنامه استفاده می کنم برای همه اشیا کار میده اما برای RadioButton ها نه چرا نمیشه با کلید Enter بین RadioButton ها حرکت کنم باید چکار کنم این دو روش که دوستان گفتند را هم انجام دادم نشد.

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
If Key = #13 Then
begin
SelectNext(ActiveControl as tWinControl, True, True );
Key := #0;
end;
end;

Hsimple11
چهارشنبه 30 مرداد 1387, 10:15 صبح
Keyprevew فرم را True کنید و توجه داشته باشید که تمام Radiobutton های شما خاصیت Tabstop برابر با True داشته باشند.