Einzelnen Beitrag anzeigen

Benutzerbild von RWarnecke
RWarnecke

Registriert seit: 31. Dez 2004
Ort: Stuttgart
4.408 Beiträge
 
Delphi XE8 Enterprise
 
#1

Kann den Titel der Form nicht ändern

  Alt 7. Jan 2006, 12:06
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 ?
Rolf Warnecke
App4Mission
  Mit Zitat antworten Zitat