Создание TFrame на TabSheet
Добавлено: 14 окт 2009, 20:15
Доброго времени суток.
задачка в том что у меня есть Frame
На основной форме я хочу реализовать процедурку в которую передаеш 2 параметра (имя будушей вкладки и название Frame формы которую надо создать)
дулаю так
Вызваю так
и тут то он ругается
[DCC Error] uMain.pas(40): E2010 Incompatible types: 'TFrame' and 'Class reference';
подскажите как быть....
задачка в том что у меня есть Frame
Код: Выделить всё
unit fAddEditMatltoINBASE;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, JvExDBGrids, JvDBGrid, JvDBUltimGrid, StdCtrls;
type
TfAddEditMAtltoIMBASES = class(TFrame)
addFormGrid: TJvDBUltimGrid;
Button1: TButton;
Button2: TButton;
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
{$R *.dfm}
end.дулаю так
Код: Выделить всё
procedure TfMain.NewCreatTabSheet(TitleName: string; NameFrame: TFrame);
var
NewTabSheet : TTabSheet;
NewFrame : TFrame;
begin
NewTabSheet := TTabSheet.Create(self.pcMain);
NewTabSheet.Caption := TitleName;
NewTabSheet.PageControl := self.pcMain;
NewTabSheet.Tag := self.pcMain.PageCount;
NewFrame := NameFrame.Create(NewTabSheet);
NewFrame.Parent := NewTabSheet;
NewFrame.Show;
end;Код: Выделить всё
NewCreatTabSheet('Имя', TfAddEditMAtltoIMBASES);[DCC Error] uMain.pas(40): E2010 Incompatible types: 'TFrame' and 'Class reference';
подскажите как быть....