TCustomForm = class(TScrollingWinControl)
constructor Create(AOwner: TComponent); override;
constructor TCustomForm.Create(AOwner: TComponent);
......
try
if not InitInheritedComponent(Self, TForm) then // gaat mis
raise EResNotFound.CreateFmt(SResNotFound, [ClassName]);
finally
Exclude(FFormState, fsCreating);
end;
De code in de create is:
TFormTable = class(TActiveForm, IROTable)
constructor Create(AOwner: TComponent); override; // declaratie
constructor TFormTable.Create(AOwner: TComponent);
begin
LogConsoleWriteLn('FormTable Create');
{$IFDEF DEBUGMODE}
try
{$ENDIF}
{$IFDEF DEBUGMODE}
LogConsoleWriteLn('FormTable Create before inherited');
{$ENDIF}
inherited Create(AOwner); // --> gaat mis
{$IFDEF DEBUGMODE}
LogConsoleWriteLn('FormTable Create after inherited');
{$ENDIF}
//fReflector := TReflectorWindow.Create(ParkingWindow, self);
//ControlStyle := ControlStyle + [csReflector];
{ TODO -oOM -cBUG : Workaround to fix word wrap bux in tabs for longer texts. }
// aoTabSet.AntiAlias := aaNone;
{$IFDEF DEBUGMODE}
LogConsoleWriteLn('FormTable Create sheet');
{$ENDIF}
fSheetList := TSheetList.Create();
fSheetList.GridOwner := self;
fSheetList.Tabs := self.aoTabSet;
fSheetList.OnSheetAdd := OnSheetAdd;
fSheetList.OnSheetDel := OnSheetDel;
fSheetList.OnSheetActiveChanged := OnSheetActiveChanged;
fSheetList.OnSheetRename := OnSheetRename;
fWorkbook := IROTWorkbook(fSheetList);
//fLocals := nil;
//RegisterDialog; // Register dialog ocx
{$IFDEF DEBUGMODE}
except
on e:exception do
LogConsoleWriteLn('Exception: FormTable Create <' + e.Message + '>');
end;
{$ENDIF}
end;
// *********************************************************************//
// Interface: IROTable
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {297150A9-B93C-4FA9-925D-ECAD064987AF}
// *********************************************************************//
IROTable = interface(IDispatch) // (zelf ontwikkeld)
Bookmarks