Скачать: CL | DM;

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

← →
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 прочитал? ДВА сообщения
> увидел?
>


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

---

← →
Сергей М. ©   (2008-10-29 14:12) [8]

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


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

---

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

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


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

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

---

← →
Германн ©   (2008-10-29 14:25) [10]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.006 c