|
Win32元件頁
TrackBar元件 |
UpDown元件 |
|
|
Procedure
TForm1.FormCreate(Sender: TObject);
begin
TrackBar1.Position:=0; //開始位置TrackBar1.Max:=100; //最大量
TrackBar1.Min:=0; //最小量
TrackBar1.Frequency:=10;
//刻度值
end;procedure TForm1. TrackBar1Change(Sender:
TObject);
begin
Label1.Caption:=IntToStr(TrackBar1.Position);
end; |
|
procedure TForm1.UpDown1Click(Sender:
TObject; Button: TUDBtnType);
begin
Label1.Caption:=IntToStr(UpDown1.Position);
end; |
ProgressBar |
AniMate |
|
|
procedure
TForm1.FormCreate(Sender: TObject);
begin
ProgressBar1.Position:=0;
ProgressBar1.Max:=100;
ProgressBar1.Min:=0;
ProgressBar1.step:=10;
end;procedure TForm1. Timer1Timer(Sender: TObject);
begin
With ProgressBar1 Do
If Position=Max Then
Position:=0
Else
Position:=Position+1;
Label1.Caption:=IntToStr(ProgressBar1.Position);
end; |
CommonAVI屬性選擇動畫 |
要使動畫動起來Active屬性設為True
|
DateTimePicker |
MonthCalender |
|
|
Kind設定顯示為日期或時間
DateFormat設定顯示日的格式 |
|
HeaderCtrol |
HeAderCtrl與Win3.1元件頁中Header元件不同的是多了動態調整寬度的功能, |
本網頁由昱得資訊工作室製作(C) Copyright
Valor-Studio since in 1993
|
|
|
|