Цитата:
|
Сообщение от Alegun
var
ProjectWindow: TWndProject;
begin
If not ProjectActive then
begin
LockWindowUpdate(ClientHandle);
ProjectWindow:=TWndProject.Create(self);
ProjectWindow.Left:=10;
ProjectWindow.Top:=10;
ProjectWindow.Width:=373;
ProjecTwindow.Height:=222;
ProjectWindow.Show;
LockWindowUpdate(0);
end;
end;[/code]
|
как это связать в моем случае не пойму
Код:
procedure TForm1.dfgdfgdf1Click(Sender: TObject);
var
t:TForm;
begin
t:=TForm.Create(Form1);
t.FormStyle:=fsMDIChild;
t.Show;
end;
MAD: используйте теги.