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); 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';
end;
end.
¿ Como soluciono este problema ?