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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 14.04.2012, 20:55   #1
Nina+
Пользователь
 
Регистрация: 19.11.2008
Сообщений: 39
По умолчанию Редактор свойств

Хочу написать для своего компонента редактор свойств, который ограничивал бы ввод свойств с типом integer только положительными числами. Не совсем представляю как это должно выглядеть и работать. Что должно происходить в Object Inspector, если я введу отрицательное значение? Объясните пожалуйста, как это все должно работать, и что мне нужно для этого добавить в код или исправить.

Код:
unit PositiveIntProperty;

interface
uses Windows, Messages, SysUtils, Classes,DesignEditors,DesignIntf,PingComponent,
 Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type

TPositiveIntProperty = class(TIntegerProperty)

public
  procedure SetValue(const Value:String); override;
end;

implementation
procedure TPositiveIntProperty.SetValue(const Value:String);
var
  L: Integer;
begin
  L := StrToInt(Value);
  if (L < 0) then
    Raise exception.Create('Value ' + Value + ' is out of range');
    SetOrdValue(L);
end;

procedure Register; 

begin

RegisterPropertyEditor(TypeInfo(Integer), TPingComponent,'',TPositiveIntProperty);

end;

end.
Nina+ вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
перегрузка свойств xrob Компоненты Delphi 4 26.09.2011 23:01
Массивы свойств -=KocT=- Помощь студентам 0 20.06.2011 12:59
Наследование свойств vedro-compota HTML и CSS 14 19.04.2010 21:40
Редактор свойств msk11 Компоненты Delphi 0 17.04.2010 15:39
редактор свойств из Stringgrid Leksmaster Фриланс 3 01.03.2009 01:11