在windows xp以及以上版本，基本控制項edit都有乙個好看的氣泡提示框，可惜delphi 7還不支援這種效果，但是因為edit是基本控制項，只要在xp及以上版本，傳送氣泡顯示訊息，也就可以讓其顯示氣泡提示。
msdn介紹editballoontip結構體如下：12
3456
typedef
struct tageditballoontip editballoontip, *peditballoontip;
delphi 7下必須要放置xpman控制項，才能顯示出xp風格的氣泡提示框。具體實現示例原始碼：
0102
0304
0506
0708
0910
1112
1314
1516
1718
1920
2122
2324
2526
2728
2930
3132
3334
3536
3738
3940
4142
4344
4546
4748
4950
5152
5354
5556
unit unit1;
inte***ce
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs, stdctrls, xpman;
//---------------------開始：delphi 7 新增此宣告訊息----------------------------
const
ecm_first = $1500; // edit control messages
em_showballoontip = ecm_first + 3; // show a balloon tip associated to the edit control
em_hideballoontip = ecm_first + 4; // hide any balloon tip associated with the edit control
type
_tageditballoontip = packed
record
cbstruct: dword;
psztitle,
psztext : pwidechar;
ttiicon : integer;
end;
teditballoontip = _tageditballoontip;
//---------------------結束：delphi 7 新增此宣告訊息----------------------------
type
tform1 = class(tform)
edt1: tedit;
btn1: tbutton;
xpmnfst1: txpmanifest;
procedure btn1click(sender: tobject);
private
public
end;
varform1: tform1;
implementation
procedure tform1.btn1click(sender: tobject);
varebt: teditballoontip;
begin
with ebt do
begin
cbstruct := sizeof(ebt);
psztitle := '提示';
psztext := '請輸入內容';
ttiicon := 1;
end;
sendmessage(edt1.handle,em_showballoontip,0,longint(@ebt));
end;
end.
執行結果如下圖所示：
Delphi7遠端除錯
自己的開發機器稱為主機，執行程式的機器稱為目標機 一 在主機編譯執行程式 1 project options linker中的exe and dll options選項組中的include remote debug symbols打上勾，這樣就可以生成rsm為副檔名的檔案，該檔名稱於你的專案同名。2...
Delphi7 動態陣列
初學delphi，感覺.這感覺就是寫 太費勁了，已經習慣了c 那種信手拈來，不能說pascal不適應只能說還是費勁，可能是d7太老了，也可能是我還沒有上道兒，就這麼著吧，下面簡單的寫倆函式作為參考，修改修改可以當c 中的list 用arr array of string procedure add ...
Delphi7 視窗停靠效果
實現目的 實現 ainform 中對dockform 的停靠，相當於 中的工具欄停靠。結果先讓大家看看 靠！看不到！說明 在開始停靠的時候我們先了解一下下停靠在 delphi 在delphi7 中原來就有對 form 等有依靠功能，分別是以下屬性 屬性值 說明drawmode dmautomatic...