Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.06.26;
Скачать: [xml.tar.bz2];

Вниз

навигация по ENTER   Найти похожие ветки 

 
Sliften   (2003-06-10 09:13) [0]

На форме 2 Edit(а) как прописать так чтобы по ENTER переводился фокус между ними? Или придется для каждого Edit(а) писать свою команду типа
if key = VK_RETURN theh
Edit2.SetFocus
а потом так же для второго


 
Соловьев   (2003-06-10 09:44) [1]

fMain.KeyPreview = true
....

procedure TfMain.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #13) then
begin
Key:=#0;
Perform(WM_NEXTDLGCTL,0,0);
end;
end;


 
kudatsky   (2003-06-10 10:03) [2]

А чам тебе не нравится твой собственный вариант ?
По моему, там всё в порядке. И проще не сделпешь.


 
kp   (2003-06-10 10:37) [3]

Простой вопрос А куда это прицепить


 
Sliften   (2003-06-10 10:38) [4]


> kudatsky (10.06.03 10:03)
> А чам тебе не нравится твой собственный вариант ?
> По моему, там всё в порядке. И проще не сделпешь.

да оното проще если на форме не более 5 Edit(ов)
а если штук 20. Да и развиваться не помишает


 
kp   (2003-06-10 10:39) [5]

Извините Понятно


 
Lu Chan   (2003-06-10 18:13) [6]

Если не устраевает чем-то вариант от Соловьева. То могу предложить еще два извращения ;-):
>>fMain.KeyPreview = true
>>....
>>procedure TfMain.FormKeyPress(Sender: TObject; var Key: Char);
>>begin
Внутри работать с массивом Controls[i] главной формы и проверять на соответствие TEdit и передавать фокус. Или же создать свой массив TEdit и одну функцию обработки Enter"a для передачи фокуса следующему члену масива.



 
Kosha   (2003-06-10 18:25) [7]

procedure TForm.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_Return then
begin
Key:=0;
SelectNext(ActiveControl,True,True);
end;
end;


 
Sliften   (2003-06-11 00:50) [8]

Соловьев © (10.06.03 09:44)

fMain.KeyPreview = true
....

procedure TfMain.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #13) then
begin
Key:=#0;
Perform(WM_NEXTDLGCTL,0,0);
end;
end;


Спасибо! Только не подскажеш Perform(чего); чтобы двигаться в обратном порядке (назат). И не ругайтесь пожалуста процедура мне еще пока не знакома. Да а есле будет время не поделетесть



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.06.26;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.03 c
14-84642
sniknik
2003-06-07 14:27
2003.06.26
Отличия D6 и D7


1-84138
DJ Goalkeeper
2003-06-11 11:14
2003.06.26
Прозрачность фона TLabel


3-83930
YuraKiller
2003-06-03 22:33
2003.06.26
Предоставление доступа к таблицам и процедурам.


14-84641
Jack128
2003-06-10 09:51
2003.06.26
Проблемы с винтом


3-83897
vajo
2003-05-28 12:35
2003.06.26
EDBEngineError





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский