这样试试:
procedure ShowForm(OwnerApplication: TApplication; aName: string);
begin
Application := OwnerApplication;
CoInitialize(nil);
With TModifyPasswordForm.Create(OwnerApplication) do
try
Label5.Caption := aName;
ShowModal;
except
Free;
CoUninitialize;
end;
end;
procedure ShowForm(OwnerApplication: TApplication; aName: string);
begin
Application := OwnerApplication;
CoInitialize(nil);
With TModifyPasswordForm.Create(OwnerApplication) do
try
Label5.Caption := aName;
ShowModal;
except
Free;
CoUninitialize;
end;
end;
win的标准参数看一下把!肯定是你没有注意一个小地方造成的!
记得把uses ShareMem,而且加到最前面。please try it again :var OldApp: TApplication;procedure ShowForm(OwnerApplication: TApplication; aName: string);
begin
OldApp := Application;
Application := OwnerApplication;
CoInitialize(nil);
With TModifyPasswordForm.Create(OwnerApplication) do
try
Label5.Caption := aName;
ShowModal;
except
Free;
CoUninitialize;
end;
Application := OldApp;
end;