Скачать: CL | DM;

навигация по 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c