Thema: Delphi Single-Form-Anwendung

Einzelnen Beitrag anzeigen

palmakunkel

Registriert seit: 3. Dez 2005
Ort: Coswig
18 Beiträge
 
Delphi 11 Alexandria
 
#1

Single-Form-Anwendung

  Alt 7. Nov 2023, 09:44
Liebe Delphigemeinde, ich habe ein Verständnisproblem. Ich schreiben eine Single-Form-App, die neben dem FormLQMain ein Setup und Help braucht. Beide habe ich auf TPanels gelegt, die ein- und ausgeblendet werden. Die gesamte Funktionalität steht dann in LQMain.pas, was es sehr unübersichtlich macht. Jetzt habe ich die Setup- und Help-Seite in je ein TForm geschrieben, die im FormLQMain.Panel1 wahlweise angezeigt werden.

uses ... LQSetup, LQHelp;

TFormLQMain = class(TForm)
Panel1: TPanel;
....
end;

var
FormLQMain: TFormLQMain;

procedure TFormLQMain.FormActivate(Sender: TObject);
begin
FormLQSetup.Parent:=Panel1;
FormLQSetlist.Parent:=Panel1;
end;

procedure TFormLQMain.btnShowSetupClick(Sender: TObject);
begin
FormLQHelp.Visible:=false;
FormLQSetup.Visible:= not FormLQSetup.Visible;
end;

procedure TFormLQMain.btnShowHelpClick(Sender: TObject);
begin
FormLQSetup.Visible:=false;
FormLQHelp.Visible:= not FormLQHelp.Visible;
end;

Das ging anfangs auch gut, jetzt werden im FormLQSetup Funktionen aus dem FormLQMain ausgelöst, die da gar nicht eingebunden sind. Offenbar kapert irgendwas im MainForm die Messages weg. Die Konstruktion ist also mit Sicherheit falsch, kann mir jemand sagen, wie man ein Single-Form-Anwendung grundlegend konzipiert?
Gunter Dickopf
sie passten gut zueinander - geometrisch gesehen
  Mit Zitat antworten Zitat