Delphi VJ VB VC 討論 聯繫 首頁
DELPHI參考文件
　單元架構元件
　Pascal語言元件
　Standard元件
　Additional元件
　Win31元件
　Win32元件
　Dialog元件
　Dialog範例
　資料庫(上)
　資料庫(中)
　資料庫(下)
　報表製作
　鍵盤資料(上)
　鍵盤資料(中)
　鍵盤資料(下)

作品介紹

免費下載

廠商軟體

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
　

本網站全部內容係屬【昱得資訊工作室】版權所有，轉載必究，
非經正式書面同意，不得將全部或部分內容，以任何方式轉載於其他網站或用於任何商業行為