怎樣用delphi做乙個windows時鐘?

2025-04-02 19:50:16 字數 1251 閱讀 4723

1樓:匿名使用者

這個可以找控制項,或者自己畫乙個。

2樓:匿名使用者

你在網上找下吧。很easy的。

delphi做時鐘程式,分鐘和小時刻度怎麼新增?

3樓:網友

我係統裡找的,希望幫到你。

procedure : tobject);

varmynow : tdatetime;

hour, min, sec, msec : word;

vh, vm, vs : real;

beginmynow := now;

decodetime(mynow,hour,min,sec,msec);

vh := hour/;

vm := min/;

vs := sec/;

with canvas dobegin

clblack;

moveto(60,60);

lineto(60+round(25*sin(vh)),60-round(25*cos(vh)))

clblack;

moveto(60,60);

lineto(60+round(45*sin(vm)),60-round(45*cos(vm)))

clred;

moveto(60,60);

lineto(60+round(55*sin(vs)),60-round(55*cos(vs)))

end;end;

4樓:網友

換個思路 分鐘刻度相當於 圓周的1/60 你用乙個迴圈就搞定了 為啥每個刻度都要公式呢?

5樓:網友

你的刻度是繪製的啊,那樣效果肯定不會好,因為是按照畫素點顯示的,而且座標值也是取的近似值,實在不行可以搞個**嘛。

在delphi介面上同步顯示系統時間怎麼弄啊?

6樓:匿名使用者

在form上放乙個timer控制項,在其事件**中取系統時間,並將時間串顯示到乙個標籤上。

delphi程式裡日期時間怎麼控制

7樓:網友

請說明具體需要,要拿時間來做什麼,還是說只是為了顯示下時間,如果只是為了標籤上顯示下時間的話,:=now;

8樓:

問題太抽象了,能否詳細點?

怎樣用Sesson做乙個購物車

一 建立購物車類 cartitem 屬性 商品類物件,商品數量。二 建立新增商譽搭品至購物車的servlet新增步驟 .在servlet中取出session 慶虛遲 httpsession session .用取出的session取出儲存的購物車物件 cartitem .判斷購物車物件是否為null...

怎樣用筷子搭支架怎樣用筷子做乙個穩固的正方形框架

方案一1 先用5根竹筷子捆成乙個稜形,就是有共同邊的兩個等邊三角形,做為基礎拉梁。2 再用6根竹筷子做兩個三角形支架,底根捆紮在底部稜形的4個頂點上,注意稜形短對角線每一頂點捆紮的2根竹筷子是分向兩邊的。3 最後的1根竹筷子與兩個三角形支架的頂點相聯捆紮在一起。優點 結構好 牢固。缺點 承重樑只一根...

怎樣用c建立簡單程序怎樣用c建立乙個簡單程序

include int main 用createprocess 用法見msdn 以下迴圈開啟記事本 startupinfo startupinfo startupinfo.cb sizeof startupinfo process information process info for int i...