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

Вниз

ComboBox и OnChar   Найти похожие ветки 

 
Денис   (2005-03-02 06:52) [0]

Почему обработчик OnChar для ComboBox не сохраняет замененные символы? Вот простой пример:

Var form,combo:PControl;

procedure ComboOnChar (Dummy:Pointer; Sender: PControl; var Key: Char; Shift: DWORD );
begin
Key:=#0;
end;

begin
form:=NewForm(Applet,"");
Combo:=NewComboBox(form,[]);
Combo.OnChar:=TOnChar(MakeMethod(nil,@ComboOnChar));
Run(form);
end.

Если вместо ComboBox использовать EditBox то все нормально, ввод с клавиатуры фильтруется.


 
ECM ©   (2005-03-02 10:11) [1]

Да, уж... в код окнонной функции ComboBox-а вкралась опечатка:
(исправления выделены жирным шрифтом)
function WndFuncCombo( W: HWnd; Msg: Cardinal; wParam, lParam: Integer )
                                  : Integer; stdcall;
...
//********************************************************** Added By M.Gerasimov
//*
     PrevProc:=Pointer(GetProp( W, ID_PREVPROC ));
     if PrevProc <> Nil then
      Result := CallWindowProc( PrevProc , W, MsgStruct.message, MsgStruct.wParam, MsgStruct.lParam) //Msg, wParam, lParam )
     else
      Result:=0;
//*
//********************************************************** Added By M.Gerasimov


 
ECM ©   (2005-03-02 10:40) [2]

Для желающих. Тут:
http://kolibdb.100free.com/kolmck205plus.zip
лежит upd-файл исправляющий эту ошибку и некоторые другие,
которые были замечены мной после выхода версии 2.05.
Список исправлений - Changes.txt в архиве.



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

Форум: "KOL";
Текущий архив: 2005.10.23;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.034 c
14-1128245552
Андрей В
2005-10-02 13:32
2005.10.23
Разработка ПО для КПК на Delphi2005


5-1104096308
alo
2004-12-27 00:25
2005.10.23
добавить свойство классу TListColumn ?


14-1128002509
NewWonder
2005-09-29 18:01
2005.10.23
Сайтострой


14-1127905420
MadAngel
2005-09-28 15:03
2005.10.23
Прикол?


2-1126774483
SMATMP
2005-09-15 12:54
2005.10.23
Bitmap.LoadFromFile (Progress)





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