国产探花免费观看_亚洲丰满少妇自慰呻吟_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啟動畫面

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

圖片精選

主站蜘蛛池模板: 汝阳县| 内江市| 思茅市| 乐清市| 綦江县| 嘉禾县| 利津县| 安吉县| 剑川县| 靖安县| 渭源县| 云和县| 宾阳县| 和平区| 闽清县| 宁明县| 县级市| 故城县| 土默特右旗| 小金县| 西昌市| 信宜市| 莆田市| 景洪市| 博爱县| 呼伦贝尔市| 剑阁县| 黄龙县| 逊克县| 连州市| 琼海市| 泽库县| 报价| 石景山区| 德清县| 墨脱县| 内乡县| 积石山| 类乌齐县| 双峰县| 抚松县|