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

Вниз

Как передать фокус из DBEdit на SpeedButton, из DBMemo в DBEdit ?   Найти похожие ветки 

 
Denmin ©   (2004-11-25 10:03) [0]

Здравствуйте. Скажите пожалуйста, можно ли передать фокус из DBEdit на SpeedButton, а из DBMemo в DBEdit ?
Заранее благодарен.


 
Denmin ©   (2004-11-25 10:05) [1]

забыл сказать,  что обрабатываю событие onkeydown и по условию VK_RETURN или VK_DOWN должен срабатывать переход фокуса.


 
icWasya ©   (2004-11-25 10:57) [2]

ну на SpeedButton нельзя однозначно а на всё остальное -

DBEdit1.SetFocus + F1


 
zz 5 ©   (2004-11-25 11:01) [3]

TSpeedButton - не окно в понимании Windows, т.е. своего Handle он не имеет, поэтому на него нельзя передать фокус.
А вообще для передачи фокуса удобно пользоваться SelectNext + Расставить контролы в TabOrder


 
Denmin ©   (2004-11-25 11:11) [4]

ладно со speedbutton нельзя. но так и с dbmemo не получается, расставил  номера в taborder, по табу двигается, но вот по VK_DOWN не хочет из dbmemo выходить. selectnext тоже не помогает


 
ЮЮ ©   (2004-11-25 11:27) [5]

у мемо в options есть TabWants


 
Denmin ©   (2004-11-25 11:42) [6]

ни с WantsTab ни без него из dbmemo в dbedit никак не попасть


 
zz 5 ©   (2004-11-25 12:19) [7]

А так попробуй:

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
 if Key = VK_DOWN then
   PostMessage(Edit1.Handle,WM_ACTIVATE,MakeLong(WA_CLICKACTIVE,0),Memo1.Handle)
end;


 
Anatoly Podgoretsky ©   (2004-11-25 13:31) [8]

VK_DOWN это не выход из мемо, а перемещение вних.


 
Denmin ©   (2004-11-25 13:49) [9]

-> Anatoly Podgoretsky
я конечно понимаю что это перемещение вниз, но юзерам не объяснишь.

-> zz 5
получилось.
спасибо.


 
Anatoly Podgoretsky ©   (2004-11-25 13:53) [10]

У тебя какие то особенные пользователи, не такие как у других?



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

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

Наверх





Память: 0.57 MB
Время: 0.05 c
14-1101124657
menart
2004-11-22 14:57
2004.12.12
У кого есть delphi7


1-1101806334
Алик
2004-11-30 12:18
2004.12.12
Popup menu


14-1100922995
Думкин
2004-11-20 06:56
2004.12.12
С днем рождения! 20 ноября


6-1092136838
Piter
2004-08-10 15:20
2004.12.12
Нехороший TTcpClient


14-1101333145
Труп Васи Доброго
2004-11-25 00:52
2004.12.12
Citrix





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский