Ver Mensaje Individual
  #1  
Antiguo 08-01-2016
JuanOrtega JuanOrtega is offline
Miembro
NULL
 
Registrado: sep 2011
Posts: 130
Reputación: 13
JuanOrtega Va por buen camino
Acceder a un segundo formulario desde una Unit

Hola estoy haciendo una unit para poder acceder al control de un segundo formulario , en este caso , un formulario secundario About , el tema es que estoy llamando a la funcion change_title() del unit "effects" para cambiar el titulo del about sin ningun problema , el tema es que este codigo no resuelve nada porque no reconoce ni el nombre del formulario que esta especificado en una variable.

El codigo :

Código Delphi [-]
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,
  DH_Form_Effects, Vcl.ExtCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient,FormAbout,effects;

procedure TForm1.Form_NowClick(Sender: TObject);
var
  name_unit:string;
  name_form:string;
begin
    name_unit := 'FormAbout';
    name_form := 'About';

    change_title(FormAbout,About); // Call function of unit 'effects'
  end;

end;

Unit effects :

Código Delphi [-]
unit effects;

interface

uses Windows, Vcl.Forms, Vcl.StdCtrls, Vcl.ExtCtrls;

procedure change_title(name_unit: string; name_form: string);

implementation

procedure change_title(name_unit: string; name_form: string);
begin
  name_unit.name_form.Caption := 'testing';
  // FormAbout.About.Caption := 'testing';
end;

end.

¿ Como soluciono este problema ?
Responder Con Cita