Текущий архив: 2004.08.22;
Скачать: CL | DM;

Вниз

Action Manager мешает наследовать формы?   Найти похожие ветки 

← →
kdy   (2004-08-06 10:36) [0]

Сделал форму, добавил её в депозитарий.
Потом в другом проекте пытаюсь её наследовать - и получаю такое сообщение:
Error creating form: cannt inherit from "fF10". Contains a component
"ActionManager1" that does not support inheritance.
А формочку очень нужно наследовать.
Как это сделать?

---

← →
kdy   (2004-08-06 15:11) [1]

ау

---

← →
Гаврила ©   (2004-08-06 15:12) [2]

видимо, не использовать Action Manager

---

← →
kdy   (2004-08-09 09:23) [3]

> видимо, не использовать Action Manager
фигня получается
как это - в delphi и нет наследования... Это ж его стандартный компонент, которым наверняка очень многие пользуются.

---

← →
TUser ©   (2004-08-09 09:33) [4]

Все там наследуется
unit Unit1;

interface

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

type
 TForm1 = class(TForm)
   ActionList1: TActionList;
   Action1: TAction;
   Button1: TButton;
   procedure Action1Execute(Sender: TObject);
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

 TForm2 = class(TForm1)
  private
  public
   constructor Create;
  end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Action1Execute(Sender: TObject);
begin
application.Terminate;
end;

constructor TForm2.Create;
begin
  inherited Create(Application);
  Button1.Free;
  Caption:="inherited";
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TForm2.Create do
     Show;
end;

end.


---

← →
kdy   (2004-08-09 09:53) [5]

> [4] TUser ©   (09.08.04 09:33)
действительно так работает...
а что ж тогда означает это самое
<< Error creating form: cannt inherit from "fF10". Contains a component
"ActionManager1" that does not support inheritance. >>

---

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

Текущий архив: 2004.08.22;
Скачать: CL | DM;

Наверх

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