.
. TMemo, TEdit , TMemo, .13. Edit | Send to Back, TEdit , TMemo. Z- . Z , Z. , X Y , Z .
.13: TEdit TMemo.
"" - , Combobox', .
TButton . , Name Caption . Terminate. , (Caption) . Caption.
, - Caption, Name , . , :
TForm1 = class(TForm)
Edit1: TEdit;
Memo1: TMemo;
Terminate: TButton;
private
{ Private declarations }
public
{ Public declarations }
end;
TButton Terminate - , Name. , TMemo , .
TButton. , :
procedure TForm1.TerminateClick(Sender: TObject);
begin
end;
, Terminate. , , TerminateClick:
TForm1 = class(TForm)
Edit1: TEdit;
Memo1: TMemo;
Terminate: TButton;
procedure TerminateClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
, . . , .
. , Close:
procedure TForm1.TerminateClick(Sender: TObject);
begin
Close;
end;
, ( ) . Terminate. , .
|
|
, , Name , OK. Enter . , , , :
procedure TForm1.OkClick(Sender: TObject);
begin
Close;
end;
, :
TForm1 = class(TForm)
Edit1: TEdit;
Memo1: TMemo;
Ok: TButton;
procedure OkClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
C Ŕ
Ŕ. Delphi 7.0 Form(). Label1 !!! Speedbutton : From2.show;
14
Form2 Button1-6 DBGrid1, Edit1-2; Image1; speedbutton1; Statusbar1-2; KOD , ADOQuery1. DataSourse, ADOtable, ADO Connection.
15
//