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

Вниз

кодировки клавишь...   Найти похожие ветки 

 
delkos   (2003-03-23 22:45) [0]

помогите где можно найти кодировки клавишь вот например например
у клавиши F4 такая VK_f4 там у ентера если не ошбаюсь #13 или #10
вот где это всё можно ухнать или в самой делфе есть?
помогите да и заодно скаэите какая кодировка у клавиши delete.
Спасибо жду ответов!


 
jack128   (2003-03-23 22:50) [1]

вот набрал ты в делфе VK_F4, и что неужели Find Declaration сложно нажать??? (если не знаешь - это первый пункт в контекстном меню)


 
delkos   (2003-03-24 21:44) [2]

Да где это обьясни по человечески нажимаю я правую клавишу мыши вылазиет контекстное меню нет там найти декларацию!



 
delkos   (2003-03-24 21:46) [3]

Хотя что то нашел в Windows.pas но есть где нить пожробнее и мне
кажется я не то нашел...или то?


 
Anatoly Podgoretsky   (2003-03-24 21:48) [4]

Проще, простого: справка, тема Virtual-key codes


 
delkos   (2003-03-24 21:59) [5]

так вот такой вопрос вот код:

if ((ssalt in shift) and (ssctrl in shift) and (key=vk_delete))
then
key:=0;

что данный код не может заблокировать алт ктрл дел в виндовсе хп?

или хп так устроен что не возможно?
или код не верен если чт не так исправте пожплусто!


 
jack128   (2003-03-24 21:59) [6]

курсор поставь на VK_F4 и нажми правую кнопку мыши...
Это самая полезная фича в Дельфи


 
delkos   (2003-03-24 22:01) [7]

Да народ вроде бы понял а как дело обстоит с простыми клавишами типа буквы r,w,t, и так далее...?


 
jack128   (2003-03-24 22:03) [8]

ord("d"), а вообще help почаще читать надо


 
delkos   (2003-03-24 22:17) [9]

ага попобуем!
ну и спасибо конечно огромное !


 
delkos   (2003-03-24 22:33) [10]

if ((ssalt in shift) and (key=ord("m"))) then
showmessage("Трям!!!");
компилируется но если нажать алт+m нечего не просходит...
Почему???


 
jack128   (2003-03-24 22:38) [11]

в каком обработчике это написано?? в смысле событие формы или , например, кнопки?? и у кого фокус ввода при нажатии алт + м??
Поиграйся с TCustomForm.KeyPreview мозможно поможет


 
delkos   (2003-03-24 23:03) [12]

нет
keypreview:=true
ещё при создании формы..
так это процедурка при зажатии клавишь на форме..
procedure tform1.formkeydown(......)
begin
if ((ssalt in shift) and (key=ord("m"))) then
showmessage("Трям!!!");
end;
Вот только вот не получается!

да кстати вот ещё есть поле ввода телефонного номера там надо чтоб только цифры были...(маскедит не придлагать!)
вот такой код
procedure tform1.edit1keypress(........)
if (key<"0") or (key>"9") then key:=#0
вот тут теперь только цифры но теперь нельзя стереть тоесть
не пашет backspase :)
что надо добавить or (key=vk_back) ???
не пашет вроде...

да и ещё вопрос напримеесть тожеполе ввода но надо чтоб первые
две буквы всегда оставалисьтоесть их нельзя было стереть просто к ним бобавить еще
вот напимер едит5 в нем первые две буквы xx потом просто чтоб можно было добавить так как первыебуквы не изменяются как сделать?


 
Leshiy   (2003-03-25 07:43) [13]

1. procedure TForm1.Edit_TelKeyPress(Sender: TObject; var Key: Char);
begin
if ((Key>="0")and(Key<="9"))or(Key="-")or
(Key="(")or(Key=")")or (Key=#08) then
else Key:=#0;
end;

2.procedure TForm1.Edit_TelKeyPress(Sender: TObject; var Key: Char);
begin
if (Key=#08) and (length(Edit1.Text)=2) then Key:=#0;
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.008 c
7-19900
Andrew1
2003-02-14 11:05
2003.04.07
Работа с LPT


14-19747
dimich1978
2003-03-19 08:45
2003.04.07
Кто писал программы для администрирования комп.клуба?


1-19605
pavel_k
2003-03-28 19:11
2003.04.07
Цвет пикселя на состовляющие


1-19551
bloodman
2003-03-27 01:19
2003.04.07
TTreeView


1-19572
$hade
2003-03-25 08:38
2003.04.07
Структурированые хранилища (doc-файлы)





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