|
@@ -1900,6 +1900,12 @@ procedure TProjectManagerFrame.actnGuestExecute(Sender: TObject);
|
|
|
var
|
|
|
SetGuestForm: TSetGuestForm;
|
|
|
begin
|
|
|
+ CreateProgress('ÔÆ¶ËÈ¡×îÐÂÉóºËÈËÁбí');
|
|
|
+ try
|
|
|
+ ShowProjectInfoTopAndCheckers;
|
|
|
+ finally
|
|
|
+ CloseProgress;
|
|
|
+ end;
|
|
|
SetGuestForm := TSetGuestForm.Create(CurRec.ValueByName('WebID').AsInteger);
|
|
|
SetGuestForm.Owner := Self;
|
|
|
try
|