TProgressBar . Max Min Position. Position .
TUpDown . TUpDown TEdit, , . Associate .
TAnimate AVI. FileName AVI- . Active / .
TShape . Shape .
TTimer . Interval , OnTimer. True Enabled. OnTimer, Enabled False.
1. TAnimate, TProgressBar, TupDown ( Win32), TShape ( Additional), TTimer ( System), TEdit.
2. Delhi6 AVI Lab7. FileName Animate1. (C:\Program Files\Borland\Delphi7\CollStuf)
3. Enabled Timer1 False.
4. Visible ProgressBar1 False.
5. OnTimer Timer1:
Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
ProgressBar1.Position:= ProgressBar1.Position + 1;
If ProgressBar1.Position >= ProgressBar1.Max then
begin
Timer1.Enabled:=False;
ProgressBar1.Hide;
Animate1.Stop;
End;End;
6. TUpDown OnClick. :
Procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
Begin
// Position UpDown1 Edit1.
Edit1.Text:=IntToStr(UpDown1.Position);
Case UpDown1.Position mod 5 of
// Position UpDown1
// Shape1.
0: Shape1.Shape:= stRectangle;
1: Shape1.Shape:= stSquare;
2: Shape1.Shape:= stRoundRect;
3: Shape1.Shape:= stRoundSquare;
4: Shape1.Shape:= stEllipse;
5: Shape1.Shape:= stCircle;
end; end;
7. 3 :
Procedure TForm1.ToolButton3Click(Sender: TObject);
Begin
PageControl1.ActivePageIndex:=2;
ProgressBar1.Position:=0;
Animate1.Active:=True;
ProgressBar1.Show;
Timer1.Enabled:=True;
End;
8. .
|
|
.
. TonthCalendar ( Win32) , . , . Date. NDateTimerPicker . Samples Calendar.
1. : TPanel (Align = alRight); TEdit ( ); TMonthCalendar. (Align= alClient).
2. OnClick MonthCalendar1.
Procedure TForm1.MonthCalendar1Click(Sender:TObject);
Begin
Edit2.Text:= DateToStr(MonthCalendar1.Date);
End;
:
1) , TPaintBox. 2) . . | |
1) . 2) 2 TUpDown. | |
1) Password . 2) . . | |
1) Password TShape. . 2) 2 TUpDown. | |
1) 2 . 2) 3 TUpDown. |
8.
.
. . ( MainMenu), : , , , (PopupMenu) . ( Memo). , , . ( CheckBox), ( GroupBox) (. .1).
Memo . , Memo :
HideSelection | True ( ). False () | |
Lines | ( ) | |
MaxLength | . 50 - , 0 - | |
ScrollBars | ssNone (), ssHorizontal (), ssBoth () |
CheckBox - : /(/). :
|
|
AllowGrayed | True ( ), False ( ) | |
State | cdGrayed (), cd Unchecked (), cdCheckecl () |
GroupBox . . .
MainMenu . :
Items | ( ) | |
Tag | , | 0; 8( ) |
PopupMenu . PopupMenu (Name) . :
Alignment | paCenter ( ), paLeft (), paRight () | |
AutoPopup | rue ( ), False ( Popup) |
( ) :
Break | mbNone ( ), mbBarBreak ( ), mbBreak ( ) | |
Shortcut | Ctrl+A, F8, Ctrl +F10, Shift + F3, Shift +Ctrl+F11, Ctrl+Del |