国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > Delphi > 正文

Delphi的8個技巧

2024-07-16 17:58:53
字體:
來源:轉載
供稿:網友

Delphi的8個技巧:

1. delphi怎樣調用外部exe文件?

uses WinProcs;
.
begin
WinExec(......);
.

end.
和調用Pascal庫函數沒什么兩樣。
2. Delphi hint的字體和色彩如何改變
Delphi中TApplication的屬性有HintColor及HintPause。
可以通過設置HintColor改變應用程序中的Hint的顏色、通過設置HintPause
改變觸發Hint的時間。
但遺憾的是:Delphi中Hint的字體不可以改變。
3. Delphi里如何計算日期

算時間在delphi中是最容易的,如下:

var ss : TDateTime

其實Tdatetime是一個雙精度的浮點數,它的小數點前表示天數:

如, ss := ss + 20 表示從ss開始向后20天,如果 ss = 234.567
它就表示 234.567天,當然是從公元0年開始計算的!
4. 如何用Delphi編ScreenSaver? (null)
屏幕保護程序無非是擴展名換成了.SCR的可執行程序,它接受兩種命令行參數:
-s 運行命令參數
-c 配置命令參數
Windows通過向程序發-s命令行參數來啟動程序。
要注意的是:程序的窗口是無邊框和標題;窗口大小應與屏幕大小一樣;還要注意
窗口的事件的處理。
5. Delphi 中如何改目錄的名字

調用RenameFile函數,如:

RenameFile('c:/wang/temp', 'c:/wang/tmp');
6. DELPHI顯示JPEG圖像文件

只要 uses中加入 JPEG就行
JPEG單元里是有一個TJPEGImage類,可定義一變量如Jpeg,用LoadFromFile調
入某個JPEG文件, 然后用Form的Canvas.Draw(x,y,Jpeg)即可顯示.
7. Delphi中對Jpeg格式文件的處理...
(1).在 Uses 中加入 JPEG 單元;
(2).定義一個全程變量,例如 var AJPEG : TJPEGImage;
(3).在 Form 的 OnCreate 事件中加入 :

Canvas.Pen.Color:=clBlack;
Canvas.Pen.Style:=psSolid;
Canvas.Brush.color:=clBtnFace;
Canvas.Brush.Style:=bsSolid; //此上是設置 Canvas 的一些屬性,便于以后
//Clear Form and Load a new JPEG file;
AJpeg:=TJpegImage.Create;//動態生成AJpeg;
AJpeg.LoadFromFile('D:/Temp.jpg') //生成 AJpeg 后,調入 JPEG 文件 ;

(4).在 Form 的 OnPain 事件中加入

Canvas.Rectangle(2,2,560,430); //畫一個黑框的矩形將圖片圍住;
x:=10; y:=10;
Form1.Canvas.Draw(x,y,AJpeg); //以(x,y)為左上角輸出 JPEG 文件;
//實際上其作用是當圖形被破壞是使圖形恢復;


(5).在'Load'或'Browse'按鈕的 OnClick 事件中加入:
begin
if OpenPictureDialog1.Execute then
begin
AJpeg.Free; //釋放舊AJpeg;
AJpeg:=TJpegImage.Create; //產生一個新的AJpeg;
AJpeg.LoadFromFile(OpenPictureDialog1.Filename); //載入JPEG文件;
end;
Canvas.Rectangle(2,2,560,430); //將Form Clear;
x:=10;
y:=10;
Form1.Canvas.Draw(x,y,AJpeg); //顯示新的AJpeg;
end;
8. DELPHI3啟動畫面

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

主站蜘蛛池模板: 阿尔山市| 达孜县| 深圳市| 尼勒克县| 盖州市| 化隆| 汶川县| 镇安县| 旌德县| 当阳市| 延边| 七台河市| 绵阳市| 南江县| 道孚县| 阜宁县| 二连浩特市| 和龙市| 泰来县| 怀仁县| 定边县| 靖江市| 晴隆县| 铜鼓县| 西乡县| 黔江区| 夏河县| 鸡泽县| 名山县| 罗田县| 荥经县| 江川县| 犍为县| 云阳县| 花垣县| 利辛县| 德保县| 中宁县| 西乌珠穆沁旗| 兴文县| 泸水县|