Главная страница
    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.065 c
1-1101900116
ANDREI
2004-12-01 14:21
2004.12.12
sos


6-1096874386
vadimlg
2004-10-04 11:19
2004.12.12
Как через ICQClient передать файл?


14-1100806544
gn
2004-11-18 22:35
2004.12.12
M$ признала часть вины в распространении вирусов


14-1100766445
BiN
2004-11-18 11:27
2004.12.12
Опрос. География форумчан.


1-1101877338
Shtukos
2004-12-01 08:02
2004.12.12
С некоторых пор Delphi 7 не запускается, а выдает окно





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