Ȼ
1-45 01 03
2004
: ..
29 2004. 11
. _____________..
1. . ... | |
2. , Standard. ⅅ... | |
3. , . Additional... | |
4. . . . Windows- | |
5. . . . | |
6. , . , . . Drag&Drop. Hint... | |
7. . . Win32. Windows.. | |
8. ⅅ.. | |
9. Object Pascal. . .. |
1
. .
Delphi . . Delphi. __: . . Lab1.
Delphi.
1. Delphi. . Delphi, . .
2. , , . . , , .
|
|
3. . .
4. , .
. , Customize () . ( Toolbar), . / .
. , , , , . (Customize) . .
. , Commands, - . .
5. , .
. .
. , . Palette Properties, Properties. Samples Pages Data Access. Palette Properties. Samples .
.
1. Windows- . Windows , , , . .
2. <F9> : , , .
. , <F9>.
. , . .
3. . ( ), , . , Standard.
4. , <Delete>. .
.
1. : Properties Events. Properties , Events . , . , Properties.
|
|
2. : Form1. Caption c Form1 1. Caption .
3. Name. , . , Delphi . . , Delphi.
4. Panel1. . , .
5. Align Panel1 alBottom. Align , . . , . .
6. Caption Panel1.
7. Panel1, . 175. , Height .
8. Panel2 ( Align alLeft). Caption. , 233 Width .
9. Memo1 ( ) Align alClient. .
10. Lines . . Memo1 <OK>.
11. Panel2 Label1. WordWrap True. WordWrap / . Caption .
12. Panel2 Edit1. Text.
13. Button1. Caption . Font .
14. BitBtn1, Additional. Kind bkClose. TBitBtn Kind () , . bkClose , . .
15. Button1. Button1. Events. , . OnClick. Delphi . OnClick .
.
1. . . , Windows-. , . , .
2. , , . . View/Code Explorer. , .
|
|
3. OnClick, Delphi OnClick.
procedure TForm1.Button1Click(Sender: TObject);
begin
...
end;
Begin End Object Pascal:
x:= StrToFloat(Edit1.Text);
y:= x/400;
Memo1.Lines.Add(FormatFloat('####.## =', x) +
FormatFloat('####.## ', y));
. var Form1: TForm1; x,y: real;
. . TMemo Add . Add TStringList Lines . . . x y. FormatFloat .
4. , <F9>. , <> .
5. Delphi Lab1.
:
:
: 1... = 133 | |
: 1 = 2,54 | |
: 1 = 36,37 3 | |
: 1 = 4,19 | |
: 1 = 0,9144 |
Lab1(File/SaveProject as).
2
, STANDARD. .
Standard :
TLabel - . .
TEdit - . / .
TMemo - , , / .
TButton -, .
TCheckBox - /.
TRadioButton - , .
TListBox - , .
TComboBox - , TListBox TEdit.
TScrollBar - , .
TGroupBox - . .
TRadioGroup - , .
TPanel - .
Delphi.