Лазарус? Т.е нажимаешь кнопки и курсор переходит по элементам.
Жень ты реально думаешь что тебе 2 января кто-то ответит? :))))
Не совсем понятно. Имеется ввиду автоселект в компоненте? Или скроллинг датасета?
А что там сложного? вот так примерно сделан выпадающий список у TMaskEdit procedure TSKFldDropDownCustom.WndProc(var Message: TMessage); var Edit_,List_:boolean; begin Edit_ := True; List_ := True; case Message.Msg of wm_KeyDown, wm_SysKeyDown, wm_Char: with TWMKey(Message) do begin DoDropDownKeys(Edit_,List_,CharCode, KeyDataToShiftState(KeyData)); if CharCode <> 0 then begin if FListVisible then begin if Edit_ then inherited; if List_ then with TMessage(Message) do SendMessage(ActiveList.Handle, Msg, WParam, LParam); exit; end end; end; end; inherited; end;
Ого - ничоси, весьма красиво. я думал ты меньшего уровня :)
Да где-то что-то когда-то натырила))
Да она лучшая на районе 😁
ну по любому код изящен
О! Проснулся. Иди в оффтоп)))
Автоселект, что бы искалось по мере набора, как в Делфи. В Лазаре не так работает.
Спасибо, ноя о другом.
Работает же. Не знаю как там работает в Delphi, но в Лазарус все работает. Если не хватает функционала TDBLookupComboBox используй обычеый TCOmboBox или расширенные компоненты, к примеру у rx
Обсуждают сегодня