Ver Mensaje Individual
  #13  
Antiguo 20-10-2005
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Para lo primero simplemente pon


Código Delphi [-]
Form2.memo1.items.add := 'cualquier cosa';

Cambiar el nombre de un formulario durante la ejecución, normalmente no tiene sentido.

El problema aquí surgirá cuando quieras mantener más de una conversación privada a la vez. No puedes usar la misma variable Form2 para todas ellas. Debes usar una variable distinta por cada ventana que uses.

Para lo segundo, debes redefinir el método CreateParams del formulario del privado como sigue:

Código Delphi [-]
type
  TForm2 = class(TForm)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

implementation

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
end;

// Saludos
Responder Con Cita