Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Наследование [D7, XP]

garik_ © (2008-10-29 13:48:00)
Здравствуйте!

Есть вопрос по наследованию, очень нужна помощь.
У меня в проекте все формы наследники класса 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 14:25:00) [1]

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

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

garik_ (2008-10-29 14:18:00) [2]

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

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

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

Сергей М. (2008-10-29 14:12:00) [3]

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

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

garik_ (2008-10-29 14:10:00) [4]

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

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

Ega23 (2008-10-29 14:07:00) [5]

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

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

garik_ (2008-10-29 13:59:00) [6]

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

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

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

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

Сергей М. (2008-10-29 13:56:00) [7]
Что-то не видать никакого "запуска" ..

garik_ (2008-10-29 13:55:00) [8]

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

Ой, Вот весь 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.

Ega23 (2008-10-29 13:54:00) [9]
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;

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

Сергей М. (2008-10-29 13:52:00) [10]

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »