<rt id="bn8ez"></rt>
<label id="bn8ez"></label>

  • <span id="bn8ez"></span>

    <label id="bn8ez"><meter id="bn8ez"></meter></label>

    love fish大鵬一曰同風起,扶搖直上九萬里

    常用鏈接

    統(tǒng)計

    積分與排名

    friends

    link

    最新評論

    Delphi 編程技巧常見實例問答

    1. delphi怎樣調(diào)用外部EXE文件?

      uses WinProcs;
      .
      begin
      WinExec(……);
      .
      end.
      
      和調(diào)用Pascal庫函數(shù)沒什么兩樣。

      2. Delphi hint的字體和色彩如何改變
      
      Delphi中Tapplication的屬性有HintColor及HintPause。可以通過設置HintColor改變應用程序中的Hint的顏色、通過設置HintPause改變觸發(fā)Hint的時間。但遺憾的是:Delphi中Hint的字體不可以改變。

      3. Delphi里如何計算日期
      
      算時間在delphi中是最容易的,如下:

      var ss : TDateTime

      其實Tdatetime是一個雙精度的浮點數(shù),它的小數(shù)點前表示天數(shù):如, ss := ss + 20 表示從ss開始向后20天,如果 ss = 234.567 它就表示 234.567天,當然是從公元0年開始計算的!

      4. 如何用Delphi編ScreenSaver? (null)
      
      屏幕保護程序無非是擴展名換成了.SCR的可執(zhí)行程序,它接受兩種命令行參數(shù):
      s 運行命令參數(shù)
      c 配置命令參數(shù)
      Windows通過向程序發(fā)-s命令行參數(shù)來啟動程序。要注意的是:程序的窗口是無邊框和標題;窗口大小應與屏幕大小一樣;還要注意窗口的事件的處理。

      5. Delphi 中如何改目錄的名字
      
      調(diào)用RenameFile函數(shù),如:
      RenameFile(’c:wang emp’, ’c:wang mp’);

      6. DELPHI顯示JPEG圖像文件

      只要 uses中加入 JPEG就行,JPEG單元里是有一個TJPEGImage類,可定義一變量如Jpeg,用LoadFromFile調(diào)入某個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;//動態(tài)生成Ajpeg;
      Ajpeg.LoadFromFile(’D:Temp.jpg’) //生成 Ajpeg 后,調(diào)入 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; //產(chǎn)生一個新的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啟動畫面

      in your *.dbr files do it
      begin
      {Create a splash form}
      splash:=Tsplash.Create(self);
      splash.Show;
      splash.update
      Application.Initialize;
      Application.CreateForm(..)
      .
      .
      .
      splash.close;
      splash.free;
      Application.Run
      end;

    posted on 2007-01-17 16:27 liaojiyong 閱讀(320) 評論(0)  編輯  收藏 所屬分類: Delphi

    主站蜘蛛池模板: 在线看片免费人成视久网| 国产jizzjizz视频免费看| 91免费精品国自产拍在线不卡| 国产精品亚洲午夜一区二区三区| 国产精品久久免费视频| 久久久久女教师免费一区| 亚洲一区二区影视| 亚洲成片观看四虎永久| 亚洲精品国产免费| 一级毛片**免费看试看20分钟 | 亚洲色欲色欲www在线丝| 99久久久精品免费观看国产| 亚洲综合精品香蕉久久网97| 国产白丝无码免费视频| 亚洲heyzo专区无码综合| 亚洲人成网站影音先锋播放| 日本无卡码免费一区二区三区| 在线成人精品国产区免费| 亚洲av无码成人精品区一本二本| 亚洲AV无码一区二区二三区入口| 日韩激情淫片免费看| 性xxxxx大片免费视频| 免费一区二区三区在线视频| 亚洲成aⅴ人片在线观| 亚洲熟妇中文字幕五十中出| 麻豆成人精品国产免费| 久久久久高潮毛片免费全部播放| 免费无遮挡无码视频在线观看| 亚洲人成网网址在线看| 破了亲妺妺的处免费视频国产 | 18女人腿打开无遮掩免费| 无码人妻一区二区三区免费视频 | 国产精品亚洲精品| 亚洲成年人在线观看| 亚洲精品无码久久久| 午夜老司机免费视频| 亚洲一级免费视频| 国产成人久久AV免费| WWW免费视频在线观看播放| 久久久久久久久无码精品亚洲日韩 | 免费无码又爽又高潮视频|