.
Standard Button . .
, . . , .
Name - ;
Caption - , ;
Left - ;
Width - ;
Height - ;
Cursor - , ;
Hint - , ;
ShowHint - . True - , False - ;
TabStop - Tab.
( Caption) , - "&". , . Alt .
- OnClick, . , .
Cancel, true, , Esc . true , , Esc.
Default, true, , Enter , . , Enter , - .
. . Events.
onClick - ( , Enter);
onMouseDown - , ;
onMouseUp - ;
onMouseMove - .
.
, . , . , .
, Events onClick.
|
|
procedure TForm1.Button1Click(Sender: TObject);
Begin
end;
Begin End :
Form1.Close;
Close , . Form1 - Name .
"", . . Caption "".
, F9 .
. "" .
, Save All . , .. . ( ) . , .. . . , . , .
- Ctrl+F9 (. ) - F9, EXE - . - .
Delphi . :
unit Unit1;
Interface
Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
Type
TForm1 = class (TForm)
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
Form1.Close;
end;
End.
:
unit Unit1 ;
interface . , , ;
uses , ;
var , . ;
implementation , ;
end. . . End ;
, . . ( - ):
Button1.Left:=Button1.Left+10;
10 . F9 .
|
|
Button2 Button1. Button1. "." . Delphi .
1.
Left, .. , . Left 10 . Left .
( Caption , , , . .)
:
Button1.Height:=150;
Button1.Width:=150;
.
1
TLabel, TEdit
TEdit , .
:
;
- TEdit,
- TLabel,
- TButton
- OnClick Button1:
procedure TForm1.Button1Click(Sender: TObject);
var i, k, L: word;
begin
L:= Length(Edit1.Text); { }
k:=0;
for i:= 1 to L do
if Edit1.Text[i] in [0..9] { }
then inc(k);
if k=0 then Label1.Caption:=
else Label1.Caption:= =+IntToStr(k);
end;
1:
1 ( ).
Ax4+Bx2+C=0.
2 ( ).
Ax+By=E Cx+Dy=F.
TEdit , TLabel <> TEdit . ( ) Tlabel.
2:
= mod 4
1. N . .
2. N . .
3. N . 10.
4. N . .
. , , :
1 N Edit1,
2 Edit2 ,
3 .