![]() |
Kann den Titel der Form nicht ändern
Hallo zusammen,
ich habe mit der folgenden Procedure eine Form aus einer DLL aufgerufen :
Delphi-Quellcode:
In der DLL steht folgendes :
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;
Delphi-Quellcode:
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 ?
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; |
Re: Kann den Titel der Form nicht ändern
an welcher stelle änderst denn du die caption? ich seh in dem geposteten source nirgends wo du die caption neu setzt. Desweiteren gibst du ja das handle der Application weiter und nicht das von einem TForm.
|
Re: Kann den Titel der Form nicht ändern
Ich vergebe eine neue Caption der Form im OnCreate-Ereignis der TForm.
Delphi-Quellcode:
procedure TConfigurationMain.FormCreate(Sender: TObject);
var hDLL : THandle; begin Label7.Caption := 'Rechnungsdatum' + #13#10 + 'plus x Tage'; Label8.Caption := 'Minimum Limit' + #13#10 + 'der Ware für Bestellung'; hDLL := LoadLibrary(PChar('ressource.dll')); if hDLL <> 0 then begin try Closebtn.Glyph.LoadFromResourceName(hDLL,'beenden'); finally FreeLibrary(hDLL); end; end; ConfigurationMain.Caption := 'Test'; {<---- Da vergebe ich die neue Caption der Form. Dieses ist jetzt nur ein Beispiel. Später wird hier eine Funktion den String liefern.} Zitat:
|
Re: Kann den Titel der Form nicht ändern
das liegt an deiner Programmierweise, du hast objectorientierung mit globaler Programmierung vermischt.
Delphi-Quellcode:
setzt die Caption von ConfigurationMain
ConfigurationMain.Caption := 'Test';
richtiger wäre hier
Delphi-Quellcode:
oder nur
Self.Caption := 'Test';
Delphi-Quellcode:
Caption := 'Test';
|
Re: Kann den Titel der Form nicht ändern
Danke für Deine Hilfe. Jetzt funktioniert es. Aber ganz verstehen tue ich das noch nicht ganz.
Wenn ich mehrere Forms in einer EXE habe, da kann ich das so machen. Was ist denn jetzt der Unterschied ? |
Re: Kann den Titel der Form nicht ändern
du kannst dein TConfigurationMain mehrfach erstellen.
Delphi-Quellcode:
danach kannst du mit
x1 := TConfigurationmain.Create(nil);
x2 := TConfigurationmain.Create(nil); x3 := TConfigurationmain.Create(nil);
Delphi-Quellcode:
die captions der einzelnen forms ändern.
x1.caption := 'abc';
x2.caption := 'def'; x3.caption := 'ghi'; wenn du allerdings nur
Delphi-Quellcode:
aufrufst kannst du logischer weise NICHT mit
TConfigurationmain.Create(nil);
TConfigurationmain.Create(nil); TConfigurationmain.Create(nil);
Delphi-Quellcode:
die captions ändern. Aber genau das hast du versucht. Du hast versucht die Caption von "Configurationmain" zu ändern obwohl du nie etwas auf "Configurationmain" zugewiesen hast.
x1.caption := 'abc';
x2.caption := 'def'; x3.caption := 'ghi'; |
Re: Kann den Titel der Form nicht ändern
Danke für Deine ausführliche Erklärung. Ich habe wieder etwas dazugelernt. Danke.
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:29 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz