Unit: QQQ.
Interface
USES the
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
Type
TForm1=class (TForm)
Edit1: TEdit;
Edit2: TEdit;
For: TButton;
Procedure Button1Click (Sender: TObject);
Procedure FormCreate (Sender: TObject);
Procedure FormClose (Sender: TObject; Var Action: TCloseAction);
Private
{Private declarations}
Public
{Public declarations}
The end;
Var
Form1: TForm1;
Implementation
{$R *. DFM}
procedure TForm1.Button1Click(Sender: TObject);
The begin
Edit2. Text:=EDit1. Text;
The end;
Procedure TForm1. FormCreate (Sender: TObject);
The begin
Showmessage (" SSSSSSSSSSS ");
Edit1. Text:='1';
Edit2. Text:='333';
The end;
Procedure TForm1. FormClose (Sender: TObject; Var Action: TCloseAction);
The begin
Showmessage (' 2222222 ');
The end;
End.
This is the test code generated EXE files on other computers cannot display
CodePudding user response:
The unit file no problem, see engineering documents,
CodePudding user response:
Compiled file, you have to take the library files compiling,
CodePudding user response: