1. ( ) ᒺ (Object Inspector). . , , ᒺ.
2. . ActiveControl (Button1 Button2), ( ) . ActiveControl.
3. Tab. Tab Order ( ). . Tab, . Tab Order, .
4. AutoScroll true , , . , +HorzScrollBar, +VertScrollBar. + .
Increment, Tracking ( ) true, Position .
5. . +BorderIcons true false. , .
( biSystemMenu false). .
biSystemMenu (biMinimize biMaximize ). .
biHelp. .
.
6. (BorderStyle). .
(bsDialog). .
(bsNone).
(bsSizeable , ).
7. ᒺ ( Caption, , Form1) Example. , .
8. ClientHeight, ClientWidth Height, Width . ClientHeight, ClientWidth () ( , ). , ( ) .
|
|
|
9. Left, Top . Button1 Button2 ( Lock Controls Edit).
10. ( Color), (clBlack clWhite) (clScrollBar clNone), (, $000000FF, clRed). Color .
11. Ctl3D, .
12. ( Cursor). . ϳ crDefault.
13. Enabled false. ϳ Ctrl+F2 ( Pause Delphi).
14. Font . () . , ParentFont ( ) true. .
15. (FormStyle) , (fsStayOnTop). (fsNormal).
16. Hint , (, ). ShowHint true. , Hint.
17. ( Icon), . Icon, Load Icon \Program Files\ Common Files\ Borland Shared\ Images\ Icons. , .
18. Name ( , Form1) Window, Enter , Form1 Window. , : Window: TWindow; Name ᒺ .
19. Position, (poDesigned , , poDefault Z-). Position poScreenCenter, .
20. WindowState. . wsMinimized, wsMaximized, wsNormal (, , ).
|
|
|
1. ? ? ? ?
2. , ( ) ? ?
3. ? ?
4. ? ( ) ? ?
5. ? ?
6. Caption Name ?
7. ClientHeight, ClientWidth Height, Width? .
8. . Windows? RGB?
9. ? ?
10. ? ?
11. ?
12. , ?
13. , ?
14. ?
15. (, , )?
3
: Windows.
: 㳺 Windows , , .
1. Delphi .
2. Button Standard.
, ( Unit1) :
Button: TButton;
Button TButton ().
3. ᒺ, ( Name) Ok Enter.
Ok ( Caption) , :
Ok: TButton;
4. Ok ( ᒺ) .
10050 ( 7525).
. ᒺ ( Width Height), . Shift+ 1 .
5. ᒺ Font (), . , , , .
6. . .
7. ( Cursor), . Cursor crHandPoint ( ).
.
, Delphi, Cursor ᒺ F1.
8. , . Hint (, ), ShowHint ( ) true.
.
9. Edit ( Standard). , :
|
|
|
Edit1: TEdit;
Edit2: TEdit;
10. Edit Text , (, Edit1 Edit2). dz Edit1 Edit2 Text ᒺ .
11. , , .
Edit1, Ok Edit2.
12. Ok ( Ok 䳿 OnClick ᒺ):
procedure TForm1.OkClick(Sender: TObject);
Begin
End;
x , y , s .
procedure TForm1.OkClick(Sender: TObject);
Var x: Integer;
y: Real;
s: String;
Begin
End;
Edit1 Text StrToInt:
x:= StrToInt(Edit1.Text);
x , 6.28/360:
y:= 6.28/360*x;
y s ( y:5:5 ):
str(y:5:5, S);
, , s Edit2.Text:
Edit2.Text:= s;
ֳ :
procedure TForm1.OkClick(Sender: TObject);
Var x: Integer;
y: Real;
s: String;
Begin
x:= StrToInt(Edit1.Text);
y:= 6.28/360*x;
str(y:5:5, S);
Edit2.Text:= s;
End;
.
. Edit1 , , Ok Delphi ( Ctrl+F2).
13. , ShowMessage( ); .
Ok , Edit1.Text , , ShowMessage( ); :
If Edit1.Text = Then ShowMessage( )
else begin
x:= StrToInt(Edit1.Text);
y:= 6.28/360*x;
str(y:5:5, S);
Edit2.Text:= s;
end ;
14. ( ) . Edit1 , BackSpace ( VK_BACK).
䳿 (OnKeyPress) Edit1 ( 䳿 OnKeyPress ᒺ):
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
Begin
End;
. Key , (var Key: Char). , Key:=#0; Key Edit1 .
15. Ok, . Edit1, Active Control Form1 Edit1. .
16. Tab.
|
|
|
: Edit1, Edit2, Ok. Tab Order ( ).
Tab, TabStop false ( ). Edit2.
17. , . Label StaticText, ( Caption) .
Edit1 Edit2 Label1 Label2, : , .
Color Font, .
18. .
1. ? ?
2. ?
3. ? ?
4. , ?
5. , ?
6. Edit? ?
7. ?
8. .
9. Key 䳿 OnKeyPress.
10. , ?
11. ? ? ?
12. , ?
4
: .
: 㳺 SDI (Single Document Interface) Windows .
