熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

Delphi的8個技巧

2013-11-11 21:06:56  來源: Delphi編程 

   delphi怎樣調用外部EXE文件?

  uses WinProcs; begin WinExec();

  end 和調用Pascal庫函數沒什麼兩樣

   Delphi hint的字體和色彩如何改變Delphi中TApplication的屬性有HintColor及HintPause

  可以通過設置HintColor改變應用程序中的Hint的顏色通過設置HintPause 改變觸發Hint的時間

  但遺憾的是Delphi中Hint的字體不可以改變

   Delphi裡如何計算日期

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

  var ss : TDateTime

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

  如ss := ss + 表示從ss開始向後如果ss = 它就表示當然是從公元年開始計算的!

  如何用Delphi編ScreenSaver? (null) 屏幕保護程序無非是擴展名換成了SCR的可執行程序它接受兩種命令行參數

  s運行命令參數c配置命令參數Windows通過向程序發s命令行參數來啟動程序

  要注意的是程序的窗口是無邊框和標題窗口大小應與屏幕大小一樣還要注意窗口的事件的處理

   Delphi中如何改目錄的名字

  調用RenameFile函數如:

  RenameFile(c:\wang\temp c:\wang\tmp);

   DELPHI顯示JPEG圖像文件

  只要uses中加入JPEG就行JPEG單元裡是有一個TJPEGImage類可定義一變量如Jpeg用LoadFromFile調入某個JPEG文件然後用Form的CanvasDraw(xyJpeg)即可顯示

   Delphi中對Jpeg格式文件的處理

  ()在 Uses 中加入 JPEG 單元;

  ()定義一個全程變量例如 var AJPEG : TJPEGImage;

  ()在 Form 的 OnCreate 事件中加入 :

  CanvasPenColor:=clBlack;

  CanvasPenStyle:=psSolid;

  CanvasBrushcolor:=clBtnFace;

  CanvasBrushStyle:=bsSolid; //此上是設置 Canvas 的一些屬性便於以後

  //Clear Form and Load a new JPEG file;

  AJpeg:=TJpegImageCreate;//動態生成AJpeg;

  AJpegLoadFromFile(D:\Tempjpg) //生成 AJpeg 後調入 JPEG 文件 ;

  ()在 Form 的 OnPain 事件中加入

  CanvasRectangle(); //畫一個黑框的? 將圖片圍住;

  x:=; y:=;

  FormCanvasDraw(xyAJpeg); //以(xy)為左上角輸出 JPEG 文件;

  //實際上其作用是當圖形被破壞是使圖形恢復;

  ()在Load或Browse按鈕的 OnClick 事件中加入:

  begin

  if OpenPictureDialogExecute then

  begin

  AJpegFree; //釋放舊AJpeg;

  AJpeg:=TJpegImageCreate; //產生一個新的AJpeg;

  AJpegLoadFromFile(OpenPictureDialogFilename); //載入JPEG文件;

  end;

  CanvasRectangle(); //將Form Clear;

  x:=;

  y:=;

  FormCanvasDraw(xyAJpeg); //顯示新的AJpeg;

  end;

   DELPHI啟動畫面

  in your *dbr files do it

  begin


From:http://tw.wingwit.com/Article/program/Delphi/201311/8538.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.