VPF::Как переопределить метод для нескольких TEdit?

takedo

Дата 3.12.2008, 09:46 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

Добрый день. Я хотел бы имея на форме несколько TEdit вводить в них числа. Но обрабатывать ввод хочется в одной функции. Привожу её ниже, но не знаю как задать её методом для всех TEdit на форме?

Код


procedure TForm1.KeyPressEditCifr;
var i : Integer;
b:boolean;
d:double;
begin
for i := 0 to ComponentCount-1 do
if (Components[i] is TEdit) and (Components[i] as TEdit).Focused then
  begin
    b:=false;
    try
      d:=strtofloat((Components[i] as TEdit).Text);
    except
      b:=true;
    end;
    if b=true then (Components[i] as TEdit).Font.Color:=clRed else (Components[i] as TEdit).Font.Color:=clWindow;
  end;

end;

Объявил её так:

Код


type
  TForm1 = class(TForm)
  //здесь объявления и всякая ерунда типа переменных и тех самы TEdit ов
    procedure FormCreate(Sender: TObject);
    procedure KeyPressEditCifr;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

Конечно же хотелось бы это сделать при помощи if (Components[i] is TEdit) где то в функции Create формы. Очень жду подсказки.

--------------------

я не гольфист - я хоккеист

pseud

Дата 3.12.2008, 10:05 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

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

Код


type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure EditChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


{ TForm1 }


procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.OnChange := EditChange;
  Edit2.OnChange := EditChange;
  Edit3.OnChange := EditChange;
end;

procedure TForm1.EditChange(Sender: TObject);
var
  d: Double;
  c: TColor;
begin
  try
    d := StrToFloat(TEdit(Sender).Text);
    c := clWindowText;
  except
    c := clRed;
  end;
  TEdit(Sender).Font.Color := c;
end;

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

takedo

Дата 3.12.2008, 10:27 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

Спасибо, сейчас попробую!

--------------------

я не гольфист - я хоккеист

takedo

Дата 3.12.2008, 10:43 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

Все работает, спасибо

--------------------

я не гольфист - я хоккеист

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