全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2008
推到 Plurk!
推到 Facebook!

想加入Application.ProcessMessages卻不行

答題得分者是:P.D.
hotswin
中階會員


發表:72
回覆:92
積分:52
註冊:2003-11-06

發送簡訊給我
#1 引用回覆 回覆 發表時間:2006-11-18 01:35:54 IP:218.170.xxx.xxx 訂閱
在共用沒有Form的模組內unit 要如何使用Application.ProcessMessages呢
如下,想要在廻圈內加入Application.ProcessMessages編譯時都說沒有
[code]
procedure TTreeFill.AddTree(Node: TTreeNode; PN: PNodeData);
var Query: TADOQuery;
nNode: TTreeNode;
PNode: PNodeData;
begin
try
Query := TADOQuery.Create(nil);
Query.Connection := Conn;
Query.SQL.Text := 'Select * from ' TableName ' where ' FieldPID ' =' IntToStr(PN^.Index);
if Query.Active then Query.Close;
Query.Open;
while Query.Eof = False do begin
New(PNode);
PNode^.Caption := Query.FieldByName(FieldCaption).AsString;
PNode^.Index := Query.FieldByName(FieldIndex).AsInteger;
PNode^.Url := Query.FieldByName(FieldURL).AsString ;
nNode := TV.Items.AddChildObject(Node, PNode^.Caption, PNode);
nNode.ImageIndex := 1;
nNode.SelectedIndex := 2;
AddTree(nNode, PNode);
Query.Next;
end;
finally
Query.Free;
end;
end;
[/code]
------
http://xinjier.0424617287.com/gift/
禮贈品
P.D.
版主


發表:571
回覆:3884
積分:3672
註冊:2006-10-31

發送簡訊給我
#2 引用回覆 回覆 發表時間:2006-11-20 00:25:03 IP:61.67.xxx.xxx 未訂閱
那是當然的啦! Application的定義都在Forms.pas中, 如果你不想以form型態來製作, 請在interface下 uses Forms
系統時間:2017-11-22 20:52:36
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!