Форум: "Основная";
Текущий архив: 2009.09.20;
Скачать: [xml.tar.bz2];

Вниз

Реализуемо ли? Форма в Форме   Найти похожие ветки 

← →
Sashka   (2008-07-04 12:20) [0]

Есть два исполняемых файла.
Клиент и Сервер COM.
Оба могут быть изменены (т.е. есть исходники).
В окне Клиента есть TabSheet
Можно ли отобразить окно Сервера в TabSheet клиента чтобы оно (Сервер) стало его частью (Клиента).
Могу отрисовать Сервер просто в нужном месте - но как т не культурно.
А вот запихнуть его туда каким-то образом можно или нет?

---

← →
tesseract ©   (2008-07-04 12:29) [1]

> Можно ли отобразить окно Сервера в TabSheet клиента чтобы
> оно (Сервер) стало его частью (Клиента).


ISpecifyPropertyPage ?

---

← →
Sashka   (2008-07-04 17:12) [2]

? - это утверждение или предположение
Над этот интерфейс реализовать в сервере?

---

← →
tesseract ©   (2008-07-04 20:47) [3]

на сервере и на клиенте. Дальше смотри в справку.

---

← →
Mashka   (2008-07-04 21:39) [4]

Вот так ?

unit Unit2a;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, ComCtrls;

type
 TForm1 = class(TForm)
   PageControl1: TPageControl;
   TabSheet1: TTabSheet;
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

end.

------

unit Unit2b;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, Grids;

type
 TForm2 = class(TForm)
   StringGrid1: TStringGrid;
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
   procedure CreateParams(var Params: TCreateParams); override;    
 public
   { Public declarations }
 end;

var
 Form2: TForm2;

implementation

{$R *.dfm}

uses Unit2a;

{ TForm2 }

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
 inherited;
 Params.WndParent := Form1.TabSheet1.Handle;
 Params.Style := Params.Style or WS_CHILD;

end;

procedure TForm2.FormCreate(Sender: TObject);
begin
 WindowState := wsMaximized;
end;

end.


---

← →
++vist++ ©   (2008-07-08 00:20) [5]

Юзая свойство Parent можно вписать что угодно куда угодно!

Например Form1.Parent := Form2.PageControl1;

Будет тебе форма во вкладке. Единственное что - размеры придется подогнать руками!

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2009.09.20;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.004 c