Ver Mensaje Individual
  #3  
Antiguo 11-02-2022
ZyZzY69 ZyZzY69 is offline
Registrado
 
Registrado: ene 2022
Posts: 6
Reputación: 0
ZyZzY69 Va por buen camino
Cita:
Empezado por Neftali [Germán.Estévez] Ver Mensaje
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;
Responder Con Cita