Nebenfenster zum Hauptfenster machen?

[mlspider]

Ist es möglich zur Laufzeit ein Nebenformular zum Hauptformular zu machen?

[Tormentor32]

Willst du ein zweites Fenster im Designmodusgestalten un "Mit Leben Füllen" und das dann ANzeigen oder willst volldynamisch ein Formular erstellen?

[mlspider]

Das Problem ist folgendes: Das Hauptormular soll beim start der Applikation 2 Strings vergleichen. Sind diese identisch, soll ein verfügbares Formular (in den Projektoptionen auf Verfügbar gesetzt) zum Mainform gemacht werden und das ursprüngliche Hauptfenster zerstört werden.

[Tormentor32]

Kannst du nicht einfach

Delphi-Quellcode:

Form1.hide;
Form2.Show;

machen? Und dann beim onClose Ereignis von Form 2 Form1.close machen? (ungetestet)

Gruß

[mlspider]

Auf diese gloreiche Idee bin ich auch schon gekommen. Leider wäre Form2 nicht das Hauptformular.

[Christian Seehase]

Moin Mario,

was spricht dagegen, den Vergleich der Strings in der Projektdatei vorzunehmen, und dann, je nach Ergebnis, das eine oder das andere Application.CreateForm auszuführen?

[mlspider]

Oha, geht denn das so ohne weiteres? Und wie könnte dies aussehen?

[SirThornberry]

Wenn du nur 2 Strings vergleichen willst brauchst du doch kein Formular. Lass einfach das Formular weg wenn du darin nur die Strings vergleichst und gut ist. Oder erstelle das Vergleichsformular in der gleichen Art und Weise wie ein Splashscreen gehandhabt wird.

[mlspider]

Slashscreen. Das ist mein Stichwort. Danke.

[marabu]

Hallo,

vielleicht soll der Vergleichsstring über das eine Formular eingegeben werden?

Dieser thread könnte interessant sein: login fuer db in dpr datei

Freundliche Grüße

[mlspider]

Ich habe jetzt folgendes in der Projektdatei zu stehen:

Delphi-Quellcode:

program Streamjoiner;

uses
  Forms,
  IniFiles,
  StdCtrls,
  ExtCtrls,
  Variants,
  SysUtils,
  PlayerUnit in 'PlayerUnit.pas' {Player},
  VisualUnit in 'VisualUnit.pas' {Visual},
  TracklistUnit in 'TracklistUnit.pas' {Tracklist},
  EQUnit in 'EQUnit.pas' {EQ},
  AboutUnit in 'AboutUnit.pas' {About},
  StartUnit in 'StartUnit.pas' {Start},
  IntroUnit in 'IntroUnit.pas' {Intro};

function vergleicheStringsN(s1, s2:string; n:Word): Boolean;

 var i: Word;
  function delLZ(s: string): string;
  var ss: string;
      i, j: Word;
  begin
   j:=0; ss:='';
   for i:=1 to Length(s) do
   begin
    if (s[i] <> ' ') and (s[i] <> '-') then
    begin
     Inc(j);
     ss:= ss + s[i]
    end;
    if j=n then Break
   end;
   Result := UpperCase(ss)
  end;

  begin
   if delLZ(s1)=delLZ(s2) then Result:=True else Result:=False;
  end;
  var flag:word;

{$R *.res}

begin
  Application.Initialize;
  if vergleicheStringsN(Intro.Label1.Caption, Intro.Label2.Caption, 50)=False then begin
  Application.CreateForm(TIntro, Intro);
  Application.CreateForm(TStart, Start);
  end else begin
  Application.CreateForm(TStart, Start);
  Application.CreateForm(TIntro, Intro);
  end;
  Application.Run;
end.

Leider gibt es nur eine Fehlermeldung.

[Christian Seehase]

Moin Mario,

Zitat:

Zitat von mlspider

Leider gibt es nur eine Fehlermeldung.

und wir sollen jetzt raten welche? ;-)

[mlspider]

Ich habe die Meldung mal beigefügt. Ich kann damit leider nichts anfangen.

[Tormentor32]

Erscheint mir logisch, denn du vergleichst zwei Strings, die sich in der Form INTRO befinden, und danach erstellst du die Form erst...