自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(5)
  • 收藏
  • 关注

转载 如何取得別支程式的輸入游標位置?

內文】http://delphi.ktop.com.tw/topic.asp?topic_id=47386function GetCaretPosition(var APoint: TPoint): Boolean;var w: HWND; aID, mID: DWORD;begin Result:= False; w:= GetForegroundWindow;

2004-11-07 20:11:00 824

转载 呼叫event的sender討論

內文】http://delphi.ktop.com.tw/topic.asp?topic_id=55494 試著剖析一下TForm1.PageControl1Change(Sender: TObject):先看看OnChange是什麽?它是一個改變事件(Event)。事件是一種特殊的屬性。那既然OnChange是屬性,它肯定屬於某種特殊的資料類型,這個資料類型又是什麽呢?按下F1在De

2004-11-07 20:10:00 1031

转载 try ... except 用法 

【內文】http://delphi.ktop.com.tw/topic.asp?topic_id=53541 shinhrn tryADOConnection1.BeginTrans;//資料處理ADOConnection1.CommitTrans;EXCEPTADOConnection1.RollbackTrans;SHOWMESSAGE(存檔失敗!);END;若發生錯誤

2004-11-07 20:09:00 2028

转载 檔案複製時如何得知已複製的檔案大小?

程式來源:http://www.swissdelphicenter.ch/en/showcode.php?id=330{ 1. } { You need a TProgressBar on your form for this tip. Für diesen Tip wird eine TProgressBar benötigt. } procedure

2004-11-07 20:08:00 894

转载 如何簡單的將目前這筆資料再複製一筆

我是將 TDataSet.AppendRecord Method 變形一下:須注意 Unique Key 重複的問題喔procedure MyAppendRecord(CD: TDataSet; KeyValues: Variant);var KeyArray : Array of TVarRec;    i,aCount : Integer;begin  if VarIsArray(KeyVal

2004-11-07 20:04:00 851

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除