Наследование

← →
garik_ (2008-10-29 13:48) [0]

Здравствуйте!

Есть вопрос по наследованию, очень нужна помощь.
У меня в проекте все формы наследники класса TFormBase который (TForm) Как всем формам правильно унаследовать все методы FormActivate, FormClose и т.п. у TFormBase ?

Пример:

type
TFormBase = class(TForm)
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

implementation

procedure TFormBase.FormActivate(Sender: TObject);
begin
ShowMessage("asdasdasd");
end;

----

type
TForm1 = class(TFormBase)
private
{ Private declarations }
public
{ Public declarations }
end;

-----

При запуске Form1, activate из TFormBase не отрабатывается. Как быть?

← →
Сергей М. © (2008-10-29 13:52) [1]

> При запуске Form1

Показывай как "запускаешь" ..

← →
Ega23 © (2008-10-29 13:54) [2]

type TFormBase = class(TForm) procedure FormActivate(Sender: TObject); protected procedure OnBaseFormActivate(Sender: TObject); virtual; public end; procedure TFormBase.FormActivate(Sender: TObject); begin OnBaseFormActivate(Sender); end; procedure TFormBase.OnBaseFormActivate(Sender: TObject); begin ShowMessage ("TFormBase.OnBaseFormActivate"); end; type TForm1 = class(TFormBase) protected procedure OnBaseFormActivate(Sender: TObject); override; public { Public declarations } end; procedure TForm1.OnBaseFormActivate(Sender: TObject); begin inherited; ShowMessage("TForm1.OnBaseFormActivate"); end;

Вроде как-то так...

← →
garik_ (2008-10-29 13:55) [3]

> Показывай как "запускаешь" ..

Ой, Вот весь Unit

unit Unit1;

interface

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

type
TForm1 = class(TFormBase)
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

end.

← →
Сергей М. © (2008-10-29 13:56) [4]

Что-то не видать никакого "запуска" ..

← →
garik_ (2008-10-29 13:59) [5]

> Что-то не видать никакого "запуска" ..

Я думал, что достаточно унаследовать ...

> procedure TForm1.OnBaseFormActivate(Sender: TObject);
> begin
> inherited;
> ShowMessage("TForm1.OnBaseFormActivate");
> end;

Простите, ведь тут опять ShowMessage. суть наследования вроде как теряет смысл

← →
Ega23 © (2008-10-29 14:07) [6]

> Простите, ведь тут опять ShowMessage. суть наследования
> вроде как теряет смысл
>

Ты попробовал? Про директиву inherited прочитал? ДВА сообщения увидел?

← →
garik_ (2008-10-29 14:10) [7]

> Ты попробовал? Про директиву inherited прочитал? ДВА сообщения
> увидел?
>

Извиняюсь ... въехал, все получилось. Спасибо большое.

> думал, что достаточно унаследовать

Наследование и "запуск" - это две разных разницы.

← →
garik_ (2008-10-29 14:18) [9]

> Наследование и "запуск" - это две разных разницы.
>

Да, теперь понял.

Пытаюсь тоже самое проделать с унаследованием нажатий клавиш на форме по такому же принципу, пока не получается, но думаю справлюсь. Спасибо.

> Пытаюсь тоже самое проделать с унаследованием нажатий клавиш
> на форме по такому же принципу, пока не получается, но думаю
> справлюсь.

Почитай в справке про репозиторий (Repository).

Наследование Найти похожие ветки