Cita:
Empezado por Neftali [Germán.Estévez]
Hola y bienvenido a los foros.
Si puedes poner el código (como comentas), al menos lo que respecta a Delphi, será más fácil que alguien pueda probarlo y ayudarte.
También está bien una imagen para entender bien lo que explicas. Para hacernos una idea...
No tengo claro si es un problema del código Delphi o de las propiedades del elemento que está usando para el RDP.
|
Hola, disculpa por la tardanza. No tenía el código a mano y al final hice unos cambios aunque sigue sin funcionar bien. No puedo poner imágenes aún u.u.
Ahora mismo si tengo abierto el formulario en pantalla completa, al hacer la conexión RDP sí que se ve en la pestaña el escritorio remoto a tamaño grande, pero si por ejemplo quiero hacer más pequeña la ventana no se redimensiona. Al igual, si hago la conexión RDP con el formulario en pequeño, el escritorio remoto se ve pequeño y no se redimensiona tampoco al hacerlo grande.
Dejo partes de código a ver si me podéis iluminar, si hace falta algo más que no añadí me lo hacéis saber. Gracias!
Código:
procedure TConexion.DockAsTabbedDoc(APanel: TLMDDockPanel);
var
zn: TLMDDockZone;
begin
zn := FDockSite.SpaceZone;
while (zn <> nil) and (zn.Kind <> zkTabs) and (zn.ZoneCount > 0) do
zn := zn[0];
if zn <> nil then
FDockSite.DockControl(APanel, zn, alClient);
end;
Código:
procedure TConexion.CrearTab(Params: TParametrosTab);
var
Key: TScKey;
begin
FLog := Params.Log;
FDockSite := Params.DockSite;
FTab := TLMDDockPanel.Create(FDockSite);
FTab.ClientKind := dkDocument;
FTab.Caption := 'TEST';
DockAsTabbedDoc(FTab);
RichEdit1 := TAdvRichEditor.Create(FTab);
RichEdit1.Parent := FTab;
RichEdit1.Align := alClient;
RDP := TMsRDPClient9NotSafeForScripting.Create(FTab);
RDP.Parent := FTab;
RDP.Align := alClient;