Текущий архив: 2009.09.20;
Скачать: CL | DM;
Вниз
Реализуемо ли? Форма в Форме Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.012 c
