Subobjekte aus eigener Komponente

[Christian]

Code: Alles auswählen

unit CaptionPanel;
 
{$IFDEF FPC}
  {$mode objfpc}{$H+}
{$ENDIF};
 
interface

Doch !

[schnullerbacke]

Habs gerade gefunden, pardon.

[Christian]

Is ja nich schlimm wollt dich nur drauf hinweisen das war bei dir compilierbar ?

[schnullerbacke]

Im Delphi nicht, im FPC gings. Deswegen ist mir das erst gestern aufgefallen.

[OSchr]

Anfängerfrage zu MDI: Warum klappt das nicht???
Nach dem Delphi 7 buch klappt der Aufruf einer neuen Form nach:

Code: Alles auswählen

procedure TForm1.Button5Click(Sender: TObject);
begin
  Form5.Show
end;  

Dann wird aber die Form5 schon mit der Anwendung erzeugt.
Wenn ich diese aber zu Laufzeit erzeugen möchte:

Code: Alles auswählen

procedure TForm1.PeinlichClick(Sender: TObject);
begin
  TForm3.Create(Self);
end;

Klappt das auch! NUR WIRD KEIN FENSTER ANGEZEIGT????
Warum nicht?
Oder wie bekomme ich es angezeigt?
danke euch
Otmar

[wp_xyz]

Für's nächste Mal: Es wäre besser, wenn du ein neues Thema in einen eigenen Thread packst, so wie jetzt wird es praktisch nicht mehr gefunden...

Egal: Lazarus unterstützt kein MDI. MDI kommt von Windows und lässt sich nicht plattform unabhängig realisieren, zumindest nicht einfach, und da MDI von vielen Leuten als veraltet angesehen wird, wird das auch nicht vorangetrieben. Es gibt allerdings das Package MultiDoc, in dem das MDI nachgebildet wird: http://wiki.freepascal.org/MultiDoc/de - hab's selbst nicht getestet, aber dein Erfahrungsbericht wäre hier sicher interessant (dann aber in einem neuen Thread).

[OSchr]

Danke für die Info!
Nur stellt sich mir die Frage: was macht man in Lazarus alternativ? Weil andere Fenster aufrufen gibt es ja in den meisten Programmen...
Oder kennst du ein gutes Tutorial dazu?
Vielen Dank schon jetzt!

[Michl]

Deine eigentliche Fragestellung hat nichts mit mdi zu tun. Wie wp, schon schrieb, wäre eine neue Frage in einem neuen Thread besser aufgehoben.

Willst du ein Formular dynamisch erstellen, dann musst du statt

Code: Alles auswählen

procedure TForm1.PeinlichClick(Sender: TObject);
begin
  TForm3.Create(Self);
end;

dein Formular wie folgt erstellen:

Code: Alles auswählen

procedure TForm1.PeinlichClick(Sender: TObject);
begin
  Form3 := TForm3.Create(Self);
  Form3.Show; 
end;

Siehe
https://de.wikibooks.org/wiki/Programmi ... struktoren
http://wiki.freepascal.org/Form_Tutoria ... h_erzeugen

[OSchr]

Super dank! Das klappt!