Hallo zusammen,
ich habe mit der folgenden Procedure eine Form aus einer
DLL aufgerufen :
Delphi-Quellcode:
procedure TMainControl.Configuration_btnClick(Sender: TObject);
var
hDLL : THandle;
ConfigWindow : TConfigWindow;
begin
hDLL := LoadLibrary(PChar(ExtractFilePath(ParamStr(0))+'config.dll'));
if hDLL <> 0 then begin
try
ConfigWindow := GetProcAddress(hDLL, 'configuration');
ConfigWindow(Application.Handle);
finally
FreeLibrary(hDLL);
end;
end;
setLanguage;
end;
In der
DLL steht folgendes :
Delphi-Quellcode:
procedure configuration(appHandle: THandle);
stdcall;
begin
if appHandle = 0
then apphandle := GetActiveWindow;
Application.Handle := appHandle;
try
with TConfigurationMain.Create(Application)
Do
try
ShowModal
finally
Free;
end
except
On E:
Exception Do Application.HandleException(E);
end;
Application.Handle := 0;
end;
Wenn ich nun im FormShow-Ereignis die Caption der Form ändern möchte, bleibt immer die Caption drin, die ich im Objekt-Inspektor eingegeben habe. Was mache ich falsch ?