VPF::Наследники TEdit - Форум программистов

Alexeis

Дата 25.10.2007, 16:13 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

Цитата(Rennigth @ 25.10.2007, 15:48

)

Твоя первоначальная процедура будет выглядеть примерно так:

Rennigth, не, вот как раз так работать не будет, потому что не выполниться условие Sender is TCustomEdit.
Зачем было делать одинаковые имена у наследника и предка? Только путает!
Вот так работает.

Код


  TDedeaVasea = class(StdCtrls.TCustomEdit)
  published
    property Font;
  end;


var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Click(Sender: TObject);
begin
  if (Sender is TCustomEdit) then
  begin
    if Length(TCustomEdit(Sender).Text) < 10 then
      TDedeaVasea(Sender).Font.Color := clRed
    else
       TDedeaVasea(Sender).Font.Color := clBlack;
  end;
end;

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Rennigth

Дата 25.10.2007, 16:37 (ссылка)

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

Загрузка ...

Эксперт

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

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

Alexeis, виноват... smile

Но дядю Васю не лублу... упрямый я...

Код


  if (Sender is StdCtrls.TCustomEdit) then
  begin
    if Length(TCustomEdit(Sender).Text) < 10 then
      TCustomEdit(Sender).Font.Color := clRed
    else
      TCustomEdit(Sender).Font.Color := clBlack;
  end;

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

(* Honesta mors turpi vita potior *)

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