Delphi
Delphi File/New Application. , Windows. Windows- (. . 1). , Windows. . , F9. Run Run Delphi. , . , , .
, , . Form1. . , Windows.
, Caption . Caption . Caption , Delphi. Delphi. .
Delphi- : .
Standard: . , :
1. , .
2. , , .
3. , .
. 8. Label
Label () . Label Standard . : . Label (. 8). Label1 . Caption . , , , .
. Font () . , . .
|
|
. ( ), , , , . Left (), Top (), Width (), Height (), . . . Delphi 4 Left Top .
Standard TButton. Button1 (. 9).
. 9. Delphi
OnClick ( ). , Object Pascal , . , Windows. Object Pascal, . Events OnClick . Delphi OnClick. :
Procedure TForm1.Button1Click(Sender: TObject);
Begin
End;
. TForm1 Button1Click. .
Object Pascal . , , .
:
Label1.Caption:= , !;
, .
, , . Delphi! , !.
:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
|
|
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:= , !;
end;
end.
, , , . Delphi . , TForm1 , TForm.
TForm1 = class(TForm)
TForm1, TForm.
Form1: TForm1;
Form1. TForm Windows-, TForm1 .
Button1: TButton;
Label1: TLabel1;
Button1 TButton, Label1 TLabel.
Sender TObject. . . Sender .