EConverterError :-(

[-=cats=-]

Hi :hi:

Ich habe ein Problem ...

In meinem Programm gibt es mehrere Forms und mehrere Frames.
Diese werden auf einer bestimmten Form angezeigt.

Jetzt habe ich mir eigene Buttons zum Minimieren, Maximieren
und schließen gemacht.

Beim Erzeugen der Form kommt folgender Quellcode:

Delphi-Quellcode:

procedure TForm3.FormCreate(Sender: TObject);
var frame : TFrame;
Form3: TForm3;
hoehe : Integer;
breite: Integer;
begin

   SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) AND NOT WS_CAPTION);
   {
     ClientHeight und ClientWidth sind die
     voreingestellten Größen des Fensters
   }
   hoehe := ClientHeight;
   breite := ClientWidth;
   Form3.ClientHeight := Screen.Height - 5;
   Form3.ClientWidth := Screen.Width - 5;
   Form3.Top := 0;
   Form3.Left := 0;
   Refresh;

  frame := TFrame5.Create(self);
  frame.Parent := Form3;
  frame.Left := (ClientWidth div 2) - (Frame.Width div 2);
  frame.Top := (ClientHeight div 2) - (Frame.Height div 2);

end;

Und jetzt bekomme ich immer einen Fehler beim Starten ...
Wenn ich das alles auskommentiere, dann geht es.

Hat jemand eine Idee, woran das liegen könnte ? :gruebel:

Habe die Fehlermeldung mal als Screenshot angehängt.

-=cats=-

Ich denke ich habe den Fehler gefunden.
Form3 : TForm3 musste ich rausnehmen. Das war doppelt ...

[SirThornberry]

also einmal

Delphi-Quellcode:

var frame : TFrame; 
Form3: TForm3; //<== weg
hoehe : Integer; 
breite: Integer;

und dann

Delphi-Quellcode:

Form3.ClientHeight := Screen.Height - 5; 
Form3.ClientWidth := Screen.Width - 5; 
Form3.Top := 0; 
Form3.Left := 0;

ändern zu

Delphi-Quellcode:

Self.ClientHeight := Screen.Height - 5; 
Self.ClientWidth := Screen.Width - 5; 
Self.Top := 0; 
Self.Left := 0;

Ansonsten passiert das was dir passiert ist. Oder wenn du mehrere Instanzen des Forms erzeugst bekommst du auch Probleme. Oder wenn du das Form mal umbenennst musst du auch sonst all diese Zeilen ändern.

[-=cats=-]

Vielen Dank !!

Ich habe meinen Code geändert :-)
Jetzt geht auch alles :-)

Zumindest vorläufig :-D