![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Action Manager мешает наследовать формы? [D6, Win2k]
kdy © (2004-08-06 10:36:00)Сделал форму, добавил её в депозитарий.
Потом в другом проекте пытаюсь её наследовать - и получаю такое сообщение:
Error creating form: cannt inherit from 'fF10'. Contains a component
'ActionManager1' that does not support inheritance.
А формочку очень нужно наследовать.
Как это сделать?
kdy (2004-08-09 09:53:00) [1]> [4] TUser © (09.08.04 09:33)
действительно так работает...
а что ж тогда означает это самое
<< Error creating form: cannt inherit from 'fF10'. Contains a component
'ActionManager1' that does not support inheritance. >>
TUser (2004-08-09 09:33:00) [2]Все там наследуется
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:23:00) [3]> видимо, не использовать Action Manager
фигня получается
как это - в delphi и нет наследования... Это ж его стандартный компонент, которым наверняка очень многие пользуются.
Гаврила (2004-08-06 15:12:00) [4]видимо, не использовать Action Manager
kdy (2004-08-06 15:11:00) [5]ау