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

Parison

Дата 30.1.2006, 16:08 (ссылка)

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

Загрузка ...

Новичок

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

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

У меня тут возникла такая проблемма...
Я создаю класс...

Код


TMyEdit = class(TEdit)
...
end;

И вот я хочу унаследовать от TEdit событие OnMouseActivate.
Дело обстоит так:
Я создаю массив из TMyEdit и динамически создаю на форме эти вот TMyEdit-ты.. И хочу сделать, что бы при OnMouseActivate у меня мелось свойство color.
Вот, надеюсь, я тут нормально всё написал...

Romikgy

Дата 30.1.2006, 16:14 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

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

Имхо все события On* это пользовательские и в TEdit они не описаны (в смысле внутренней структуры), так от чего наследовать то ?

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Parison

Дата 30.1.2006, 16:18 (ссылка)

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

Загрузка ...

Новичок

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

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

Romikgy, а тогда можешь сказать или хотя бы подсказать как сделать, что бы
динамически созданный TMyEdit при нажатии на него кнопкой мышки менял цвет?

Это сообщение отредактировал(а) Parison - 30.1.2006, 16:21

Rennigth

Дата 30.1.2006, 16:38 (ссылка)

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

Загрузка ...

Эксперт

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

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

Код

  
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TMyEdit = class(TEdit)
  private
    procedure DoEnter(ASender: TObject);
    procedure DoExit(ASender: TObject);
  public
    constructor Create(AOwner: TComponent); override;
  published
    property OnEnter;
    property Color;
    property OnExit;
  end;

  TForm1 = class(TForm)
    Edit1: TEdit;
  private
  public
    constructor Create(AOwner: TComponent); override;


  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TMyEdit }

constructor TMyEdit.Create(AOwner: TComponent);
begin
  inherited;
  onEnter := DoEnter;
  onExit := DoExit;
end;

procedure TMyEdit.DoEnter(ASender: TObject);
begin
  Color := clRed;
end;

procedure TMyEdit.DoExit(ASender: TObject);
begin
  Color := clWhite;
end;

{ TForm1 }

constructor TForm1.Create(AOwner: TComponent);
begin
  inherited;
  with TMyEdit.Create(Self) do
    Parent := Self;
end;

end.

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

(* Honesta mors turpi vita potior *)

Romikgy

Дата 30.1.2006, 16:45 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

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

Писать обработку сообщений винды, типа CM_ENTER, WM_SETFOCUS, WM_KILLFOCUS
Добавлено @ 16:46
Rennigth проще описал smile

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Parison

Дата 30.1.2006, 16:54 (ссылка)

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

Загрузка ...

Новичок

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

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

Спасибо вам большое! smile

Демо

Дата 1.2.2006, 20:18 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

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

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type

  THackEdit=class(TEdit)
  end;

  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit1Enter(Sender: TObject);
  private
  public
    procedure EditExit(Sender: TObject);
    procedure EditEnter(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.EditEnter(Sender: TObject);
begin
  TEdit(Sender).Color := clAqua;
end;

//первый вариант
{Либо так - первый вариант}
procedure TForm1.EditExit(Sender: TObject);
begin
  TEdit(Sender).Color := clWhite;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  THackEdit(Edit1).OnExit := EditExit;
  THackEdit(Edit1).OnEnter := EditEnter;
  THackEdit(Edit2).OnExit := EditExit;
  THackEdit(Edit2).OnEnter := EditENter;
end;
//конец первого варианта

//Второй вариант
{Либо так - второй вариант}
procedure TForm1.Edit1Exit(Sender: TObject);
begin
  THackEdit(Sender).Color := clAqua;
end;

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  THackEdit(Sender).Color := clAqua;
end;
//Конец второго варианта

end.

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

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