Hola, Miren coloco esto... y por mas que le doy vueltas, no me pasa el valor de editabout.text hacia editform1.text.. de hecho me borra el contenido original de editform1 y seria todo...
aca va el codigo:
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Editform1: TEdit;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
A,B: String;
implementation
uses about;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
frm: Taboutbox;
begin
frm:= Taboutbox.Create(self);
editform1.text:=frm.A;
frm.showmodal;
frm.free;
end;
end.
unit ABOUT;
interface
uses Windows, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls;
type
TAboutBox = class(TForm)
Panel1: TPanel;
OKButton: TButton;
ProgramIcon: TImage;
ProductName: TLabel;
Version: TLabel;
Copyright: TLabel;
Comments: TLabel;
editabout: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
Fa, Fb: String;
public
Property A: String read Fa Write Fa;
Property B: String read Fb Write Fb;
end;
var
AboutBox: TAboutBox;
implementation
{$R *.dfm}
procedure TAboutBox.Button1Click(Sender: TObject);
begin
A:= editabout.Text ;
end;
end.
Gracias por todo, de verdad se pasaron chiquilllos!