Ver Mensaje Individual
  #3  
Antiguo 16-08-2006
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Pues de varias formas, supongo.

Un ejemplo de cómo podría hacerse utilizando propiedades. Se presenta una clase "TForm1" que contiene un supuesto método "OnShow". En dicho método (y a modo de ejemplo) creamos una instancia de la clase "TForm2", la cual, como puede verse, contará con una "Propiedad". Desde el mismo método "OnShow" de "TForm1" cambiamos una propiedad de "TForm2", la mostramos, y punto pelota.

Código Delphi [-]
uses
  Forms;
  
interfaz

type
  TForm1 = class(TForm)
  {...}
  public
    procedure OnShow(Sender: TObject);
  end;

type
  TForm2 = class(TForm)
  private
    FVariable: string;
  public
    property Propiedad: string read FVariable write FVariable;
  end;
  
implementation

{ TForm1 }

uses
  Dialogs;

procedure TForm1.OnShow(Sender: TObject);
var
  form2: TForm2;
begin
  form2 := TForm2.Create(Self);
  try

    // Damos a "Propiedad" un valor
    form2.Propiedad = 'Una cadena';
    
    // Mostramos el valor de "Propiedad"
    ShowMessage(form2.Propiedad);
    
  finally
    form2.Free;
  end;
end;

¿Puede servirte algo así?
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita