VPF::Как изменить родительский метод?

GenaNa

Дата 6.12.2009, 20:28 (ссылка)

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

Загрузка ...

Новичок

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

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

С конструктором и свойством все нормально, а вот не могу наследовать обработчик события OnDrawCell

Создаю свой DrawGrid:

Код



Uses ...... MyGrid.pas;


 MyGrid:=TMyGrid.Create(self);
 MyGrid.Parent:=self;
 MyGrid.Show;

Он описан в MyGrid.pas

Код


...
//мой тип переменной
type TMyLayout = (mlVertical, mlHorizontal);

type
  TMyGrid = class(TDrawGrid)
  
  private
    { Private declarations }
   //переменные для моих новых свойств
    FMyLayout:TMyLayout;
  public
    { Public declarations }
    //конструктор
    constructor Create(AOwner: TComponent);override;
   
  published
   //новое свойство
    property MyLayout:
      TMyLayout read FMyLayout write FMyLayout;

  end;

.....
//собственно конструктор
constructor TMyGrid.Create(AOwner: TComponent);
begin
  inherited;
  Options:=[];
  Ctl3D:=false;
  ParentCtl3D:=false;
  BorderStyle:=bsNone;
  ScrollBars:=ssNone;
  FixedColor:=clSkyBlue;
  DefaultDrawing:=False;
end;

Хотелось бы наследовать и чуть-чуть изменить обработчик события OnDrawCel - метод DrawCell, но при таком раскладе:

Код


...
 public
    { Public declarations }
    
    procedure DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);override;

   ...

procedure DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
 inherited;
  //мои действия
end;

говорит: "Method differs previous declaration" - отличается от предыдущего объявления.
Чувствую, не тот подход. Подскажите, пожалуйста

Это сообщение отредактировал(а) GenaNa - 6.12.2009, 20:31

THandle

Дата 6.12.2009, 23:17 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

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

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

В ошибке все в принципе и сказано. Метод в TCustomDrawGrid объявлен как:

Код


    procedure DrawCell(ACol, ARow: Longint; ARect: TRect;
      AState: TGridDrawState); override;

sCreator

Дата 6.12.2009, 23:17 (ссылка)

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

Загрузка ...

Шустрый

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

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

в D7 этот метод записан по другому

Код


  protected
    //...
    procedure DrawCell(ACol, ARow: Longint; ARect: TRect;
      AState: TGridDrawState); override;

Опередили .

Это сообщение отредактировал(а) sCreator - 6.12.2009, 23:18

GenaNa

Дата 7.12.2009, 00:08 (ссылка)

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

Загрузка ...

Новичок

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

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

Большое спасибо. Работает smile

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