| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Реализуемо ли? Форма в Форме [D6, Win2k, WinXP]

Sashka ©   (2008-07-04 12:20:00) 

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

---

++vist++   (2008-07-08 00:20:00) [1]

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

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

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

---

Mashka   (2008-07-04 21:39:00) [2]

Вот так ?

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.


---

tesseract   (2008-07-04 20:47:00) [3]

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

---

Sashka   (2008-07-04 17:12:00) [4]

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

---

tesseract   (2008-07-04 12:29:00) [5]

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


ISpecifyPropertyPage ?

---

Наверх