在共用沒有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禮品贈品

那是當然的啦! Application的定義都在Forms.pas中, 如果你不想以form型態來製作, 請在interface下 uses Forms