Os dejo el como he resuelto la posición del form para que aparezca sobre un TabSheet de un TPageControl y dé la impresión de que es el contenido original
(yo me lo guiso, yo me lo como)
Código Delphi
[-]
procedure TForm_Main.CrearFormTabSheet( TabSheet:TTabSheet );
const
FormBorder : integer = 4; FormCaption : integer = 30; begin
Application.CreateForm(TForm_TabSheet, Form_TabSheet);
with Form_TabSheet do begin
BorderStyle := bsNone;
ClientHeight := TabSheet.Height;
ClientWidth := TabSheet.Width;
Left := Form_Main.Left + FormBorder +
PageControl.Left +
TabSheet.Left;
Top := Form_Main.Top + FormCaption +
PageControl.Top + PageControl.TabHeight +
TabSheet.Top;
try
ShowModal;
finally
Free;
end;
end;
end;
Salvador (salvica)
gracias a
Caral por la ayuda
NOTA:
Form_Main es mi form desde donde llamo al procedimiento, se pordría generalizar pasándole este último
Código Delphi
[-]
procedure TForm_Main.CrearFormTabSheet( Form_Main:TForm; TabSheet:TTabSheet );
Saludos