Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #3  
Antiguo 11-02-2022
ZyZzY69 ZyZzY69 is offline
Registrado
 
Registrado: ene 2022
Posts: 6
Poder: 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
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
pantalla completa en delphi ingabraham Varios 2 29-10-2013 18:34:31
Pantalla Completa en la Aplicacion vicacos API de Windows 3 25-03-2009 21:32:53
pantalla completa Max_E. Varios 5 28-02-2007 19:01:06
Pantalla Completa en XP Fernando Varios 4 19-12-2005 19:30:42
Pantalla completa lafirma OOP 2 23-08-2003 00:31:26


La franja horaria es GMT +2. Ahora son las 03:55:19.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi