想加入Application.ProcessMessages卻不行 |
答題得分者是:P.D.
|
hotswin
中階會員 發表:72 回覆:92 積分:52 註冊:2003-11-06 發送簡訊給我 |
在共用沒有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]
------
xinjier禮品贈品 |
P.D.
版主 發表:603 回覆:4038 積分:3874 註冊:2006-10-31 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |