Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.12.2007, 10:16   #11
XPAiN
Форумчанин
 
Аватар для XPAiN
 
Регистрация: 31.10.2007
Сообщений: 108
По умолчанию

все работает спасибо.
delphi is my world
XPAiN вне форума Ответить с цитированием
Старый 19.12.2007, 13:52   #12
Yurk@
Участник клуба
 
Аватар для Yurk@
 
Регистрация: 19.12.2007
Сообщений: 1,100
По умолчанию

А чтоб не мучиться напиши в событии OnKeyPress такой код:
Код:
case Key of
'0'..'9',#8  :;
else
ShowMessage('Error');
Key:=#0;
И наслаждайся!
На форуме: Помогаю за спасибо
ICQ\Skype: Это моё личное время ...
Yurk@ вне форума Ответить с цитированием
Старый 19.12.2007, 14:18   #13
JTG
я получил эту роль
Старожил
 
Аватар для JTG
 
Регистрация: 25.05.2007
Сообщений: 3,694
По умолчанию

Цитата:
Сообщение от Yurk@ Посмотреть сообщение
И наслаждайся!
Приехали, рекурсия... А ежели пользователь скажет "ух шайтан блин", кааааак нажмёт провую кнопку мыши, да каааааак вставит туда текст

программа скопирует его, и запишет его куда-нибудь, и да выдаст потом дето при StrToInt ошибку, и падёт из-за этого курс акций на лондонской фондовой бирже, и начнётся паника на мировых рынках, и ломанётся Буш в Иран за нефтью, и выступит ООН против, и пошлет Буш ООН, и восстанут Саддам и Бен-Ладен, и пошлют всех, и долбанут огнивом ядерным по северной америке, и зацепит Кубу, и жахнет Фидель в ответ по Европе, и разверзнется земля и настанет День Судный из-за ошибки программиста
Откровения от JTG, Глава CCLVI, стих 13h
пыщь

Последний раз редактировалось JTG; 19.12.2007 в 14:22.
JTG вне форума Ответить с цитированием
Старый 19.12.2007, 15:36   #14
BOBAH13
Android Developer
Старожил Подтвердите свой е-майл
 
Аватар для BOBAH13
 
Регистрация: 19.02.2007
Сообщений: 3,708
По умолчанию

Вам же писали уже вроде, про установки флагов хендлу едита !

Код:
procedure TForm1.Create(Sender: TObject);   
var style: cardinal;   
begin   
  style := GetWindowLong(Edit1.Handle, GWL_STYLE);   
  SetWindowLong(Edit1.Handle, GWL_STYLE, style + ES_NUMBER);   
end;
for Yurk@ :D

Последний раз редактировалось Alex21; 19.12.2007 в 15:47. Причина: теги [code][/code]
BOBAH13 вне форума Ответить с цитированием
Старый 22.07.2011, 02:50   #15
#Smith
Новичок
Джуниор
 
Аватар для #Smith
 
Регистрация: 12.08.2010
Сообщений: 1
По умолчанию

Цитата:
Сообщение от JTG Посмотреть сообщение
1. TMaskEdit

2. Свойство edit`а ES_NUMBER (учите API)

Код:
procedure TForm1.Create(Sender: TObject);
var style: cardinal;
begin
  style := GetWindowLong(Edit1.Handle, GWL_STYLE);
  SetWindowLong(Edit1.Handle, GWL_STYLE, style + ES_NUMBER);
end;

Наверное, это наилучшее решение.
Но меня удивило, что в свойствах TEdit (Delphi 7) это не предусмотрено (или я не нашёл, хотя я искал).
Действительно, остаётся только учить API, а ещё поражает тот факт, что большинство из нас абсолютно не знает системы из под которой работает и её возможностей.
#Smith вне форума Ответить с цитированием
Старый 22.07.2011, 23:58   #16
Demagog
Пользователь
 
Регистрация: 11.02.2009
Сообщений: 18
По умолчанию

А вот тогда такая задача: как сделать, чтобы можно было вводить только цифры и только при нажатом CTRL? много вариантов испробовал, что-то не выходит
Demagog вне форума Ответить с цитированием
Старый 23.07.2011, 08:55   #17
Smitt&Wesson
Старожил
 
Аватар для Smitt&Wesson
 
Регистрация: 31.05.2010
Сообщений: 13,964
По умолчанию

Если С++ устроит, то вот так.
Код:
#define DigitalKeys "0123456789,"
void __fastcall TMainForm::StringGrid1KeyPress(TObject *Sender, char &Key)
{
AnsiString a = DigitalKeys;//"0123456789,";
if(a.Pos(Key) || Key == 0x08 || Key == 0x0D){StringGrid1->Tag = 1;return;}
Key = 0;
}
Пиши пьяным, редактируй трезвым.
Справочник по алгоритмам С++ Builder
Smitt&Wesson вне форума Ответить с цитированием
Старый 26.07.2011, 21:12   #18
Demagog
Пользователь
 
Регистрация: 11.02.2009
Сообщений: 18
По умолчанию

а мне бы вот лучше делфи)
Demagog вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ввод только букв или цифр... Teleport Помощь студентам 8 12.06.2008 14:57
ввод чисел со знаком... maLoy*508 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 2 21.05.2008 19:32
Ввод последовательности чисел POPOV Общие вопросы Delphi 5 16.02.2008 22:13
Разрешить ввод только определеных клавиш serres Общие вопросы Delphi 3 10.12.2007 20:08
ввод чисел bruce Microsoft Office Excel 1 08.02.2007 17:58