Вопрос о MDI окнах

← →
dimonf (2001-12-24 11:07) [6]

Народ, мне нужно разобраться как критить MDI окно. Указывать индификатор на окно "жоско".
Типа: Child:=TMDIChild.CreateMDI(self,Idx), где Idx - индекс окна.
Диапозон идексов от 1 до 3.
У меня получилось:
type
TMDIChild=Class;

TPreview = class(TPanel)
private
property Canvas;
protected
MyMDI:TMDIChild;
procedure Paint; override;
procedure Draw(Value:Integer);
public
constructor Create(AOwner:TComponent); override;
function ConvData(Str: String; Index: Integer): String;
end;

TMDIChild = class(TForm)
fsChild: TfsManager;
TabSet1: TTabSet;
ScrollBox1: TScrollBox;
Panel1: TPanel;
constructor CreateMDI(Sender: TObject; Idx:integer);
procedure FormCreate(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
private
protected
Idx:integer;
public
MyPrev : TPreview;
end;

constructor TMDIChild.CreateMDI(Sender: TObject; AIdx:integer);
begin
Create(Sender);
Idx:=AIdx;
end;

constructor TPreview.Create(AOwner: TComponent);
begin
Inherited Create(AOwner);
MyMDI:=AOwner;
Parent := AOwner as TWinControl;
BevelInner := bvNone;
BevelOuter := bvNone;
Color := clWhite;
BorderStyle := bsNone;
end;

procedure TPreview.Paint;
begin
Draw(MyMDI.Idx);
end;

Но почемуто данный кон нех...на не работает :(((
Может я чего не понемаю. Или ручки кривые???

Вопрос о MDI окнах Найти похожие ветки