Een uittreksel uit de code
Code:
unit WinForm;
interface
uses
System.Drawing, System.Collections, System.ComponentModel,
System.Windows.Forms, System.Data;
type
TWinForm = class(System.Windows.Forms.Form)
{$REGION 'Designer Managed Code'}
strict private
Components: System.ComponentModel.Container;
Button1: System.Windows.Forms.Button;
TextBox1: System.Windows.Forms.TextBox;
procedure InitializeComponent;
procedure Button1_Click(sender: System.Object; e: System.EventArgs);
{$ENDREGION}
strict protected
procedure Dispose(Disposing: Boolean); override;
private
{ Private Declarations }
public
s : string;
constructor Create;
end;
var
WF : TWinform;
[assembly: RuntimeRequiredAttribute(TypeOf(TWinForm))]
implementation
uses WinForm1;
{$AUTOBOX ON}
procedure TWinForm.Dispose(Disposing: Boolean);
begin
if Disposing then
begin
if Components <> nil then
Components.Dispose();
end;
inherited Dispose(Disposing);
end;
constructor TWinForm.Create;
begin
inherited Create;
InitializeComponent;
s := 'WinForm';
end;
procedure TWinForm.Button1_Click(sender: System.Object; e: System.EventArgs);
begin
WF1 := TWinForm1.Create;
TextBox1.Text := WF1.s1;
WF1.ShowDialog;
end;
end.
unit WinForm1;
interface
uses
System.Drawing, System.Collections, System.ComponentModel,
System.Windows.Forms, System.Data, WinForm;
type
TWinForm1 = class(System.Windows.Forms.Form)
{$REGION 'Designer Managed Code'}
strict private
Components: System.ComponentModel.Container;
Button1: System.Windows.Forms.Button;
TextBox1: System.Windows.Forms.TextBox;
procedure InitializeComponent;
procedure Button1_Click(sender: System.Object; e: System.EventArgs);
{$ENDREGION}
strict protected
procedure Dispose(Disposing: Boolean); override;
private
{ Private Declarations }
public
s1 : string;
constructor Create;
end;
var
WF1 : TWinForm1;
[assembly: RuntimeRequiredAttribute(TypeOf(TWinForm1))]
implementation
{$AUTOBOX ON}
procedure TWinForm1.Dispose(Disposing: Boolean);
begin
if Disposing then
begin
if Components <> nil then
Components.Dispose();
end;
inherited Dispose(Disposing);
end;
constructor TWinForm1.Create;
begin
inherited Create;
InitializeComponent;
s1 := 'WinForm1';
end;
procedure TWinForm1.Button1_Click(sender: System.Object; e: System.EventArgs);
begin
TextBox1.Text := WF.s;
end;
end.
Bookmarks