Модераторы: Snowy, MetalFan, bems, Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как избавиться от сообщений об ошибках? Обработка исключительных ситуаций 
:(
    Опции темы
THandle
Дата 5.12.2008, 10:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372



Christoph, зачем каждый раз при вхождении назначать всем Edit'ам стили??? smile Этого достаточно сделать один раз в том же OnCreate, ну или хотя бы сделать как-то так, хотя тоже глупость:

Назначить всем Edit'ам один OnEnter и написать что-то типа:

Код

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  if (Sender is TEdit) then
    if GetWindowLong(TWinControl(Sender).Handle, GWL_STYLE) and ES_NUMBER = 0 then
      SetWindowLong(TWinControl(Sender).Handle, GWL_STYLE, GetWindowLong(TWinControl(Sender).Handle, GWL_STYLE) or ES_NUMBER) ;
end;


Хотя постоянные проверки... Надо в OnCreate всем Edit'ам и устанавливать стиль smile
PM   Вверх
Dobermann
Дата 5.12.2008, 10:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 992
Регистрация: 7.1.2008

Репутация: нет
Всего: 0



Ну я так и понял... smile 
PM   Вверх
Christoph
Дата 5.12.2008, 10:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

Репутация: 5
Всего: 11



ыыы не подумал smile а зачем делать проверки? ты боишся что в Сендере будет что то другое валяться? smile
 
Кста по поводу то что не работает блок try except, ниже проект



Это сообщение отредактировал(а) Christoph - 5.12.2008, 10:53

Присоединённый файл ( Кол-во скачиваний: 4 )
Присоединённый файл  Error.rar 170,04 Kb


--------------------
user posted image
PM MAIL ICQ   Вверх
Dobermann
Дата 5.12.2008, 11:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 992
Регистрация: 7.1.2008

Репутация: нет
Всего: 0



Разобрался!
Просто у меня еще и после try - except шло повторное считывание с эдитов =) чёт я его не заметил...
Сё работает! Пасыбо!  smile 
PM   Вверх
Exai1e
Дата 5.12.2008, 12:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 908
Регистрация: 3.12.2006
Где: Moscow

Репутация: 2
Всего: 30



Цитата(Christoph @  5.12.2008,  11:39 Найти цитируемый пост)
ты боишся что в Сендере будет что то другое валяться? 

да мб даже дело не в этом, а в том что код выглядт приятнее у хэндла и правильнее.


--------------------
"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"
PM MAIL ICQ   Вверх
Dobermann
Дата 5.12.2008, 12:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 992
Регистрация: 7.1.2008

Репутация: нет
Всего: 0



Цитата(Exai1e @  5.12.2008,  12:46 Найти цитируемый пост)
код выглядт приятнее у хэндла и правильнее.

Да, только вот у меня 10 точек, по 2 координаты - и того 20 эдитов...
PM   Вверх
THandle
Дата 5.12.2008, 12:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372



Dobermann, присвой всем Edit'ам в которые нужно вводить только цифра Tag := 1;

В OnCreate пробегайся по контролам и если это TEdit и его Tag = 1, то ставь ему стиль.

Добавлено через 9 минут и 5 секунд
Кстати, а не лучше использовать TStringGrid??
PM   Вверх
Dobermann
Дата 5.12.2008, 17:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 992
Регистрация: 7.1.2008

Репутация: нет
Всего: 0



Цитата(THandle @  5.12.2008,  12:59 Найти цитируемый пост)
Кстати, а не лучше использовать TStringGrid??

Неа, я так делал, с эдитами красивее =)

Цитата(THandle @  5.12.2008,  12:59 Найти цитируемый пост)
Dobermann, присвой всем Edit'ам в которые нужно вводить только цифра Tag := 1;В OnCreate пробегайся по контролам и если это TEdit и его Tag = 1, то ставь ему стиль.

Вообще не понял...ни что - чему присваивать, ни с контролами =(
PM   Вверх
THandle
Дата 5.12.2008, 17:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372



Цитата(Dobermann @  5.12.2008,  17:21 Найти цитируемый пост)
Неа, я так делал, с эдитами красивее =)


http://podgoretsky.com/OtherParts/DM/BadTips.aspx
Пункт 7.


Цитата(Dobermann @  5.12.2008,  17:21 Найти цитируемый пост)
Вообще не понял...ни что - чему присваивать, ни с контролами =( 



Всем Edit'ам присваивай Tag. Свойство у них такое. В единичку ставь. А потом бегай по ним как нить так(не лучший вариант имхо):
Код


procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to ControlCount - 1 do
    if (Controls[I] is TEdit) then
      if Controls[I].Tag = 1 then
        SetWindowLong(TWinControl(Controls[I]).Handle, GWL_STYLE,
          GetWindowLong(TWinControl(Controls[I]).Handle, GWL_STYLE) or ES_NUMBER);
end;

PM   Вверх
MetalFan
Дата 5.12.2008, 18:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128



а еще лучше поставь "купи" и поставь 2009 делфю, там вроде уже это св-во добавлено в VCL


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Dobermann
Дата 5.12.2008, 19:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 992
Регистрация: 7.1.2008

Репутация: нет
Всего: 0



Цитата(MetalFan @  5.12.2008,  18:37 Найти цитируемый пост)
а еще лучше поставь "купи" и поставь 2009 делфю, там вроде уже это св-во добавлено в VCL

У меня борландская 7-ая
PM   Вверх
xfoby
Дата 20.4.2009, 19:09 (ссылка)    | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 25
Регистрация: 21.2.2009
Где: Анапа

Репутация: нет
Всего: нет



Christoph, не издевайся над человеком...зачем это в onEnter? ставь это в onCreate, а для зацикливания поработай с ControlIndex у родительского контрола smile
PM MAIL WWW ICQ Skype Jabber   Вверх
Christoph
Дата 20.4.2009, 20:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

Репутация: 5
Всего: 11



ыч не понял smile и не помню про что тут говорили


--------------------
user posted image
PM MAIL ICQ   Вверх
xfoby
Дата 21.4.2009, 01:11 (ссылка)    | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 25
Регистрация: 21.2.2009
Где: Анапа

Репутация: нет
Всего: нет



Хахахаха)) Christorph, я ту мессагу написал сразу после поста про изменение стиля по onEnter...долго не мог понять, что у меня с инетом - сообщение не отображалось xD
а теперь появилось...очень своевременно xD xD
PM MAIL WWW ICQ Skype Jabber   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.0574 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.