Zur Laufzeit erstellte Elemente werden nicht angezeig

[justin.kuhn]

Zitat von borstenei:

Dein Beispiel funktioniert bei mir ohne Probleme....

Dein Anhang funktioniert bei mir auch. Also kann es ja nicht am Code liegen. Muss ich vielleicht irgendwelche Einstellungen in Delphi ändern (mal ganz banal gefragt)? Ist etwas an meinem Vorgehen beim Erstellen des Projekts falsch?

[a.def]

Vielleicht liegt es ja an Delphi 7? Das Beispiel da oben wurde mit 10.2 Tokyo (gibt es auch kostenlos) kompiliert.

[HolgerX]

Zitat von a.def:

Vielleicht liegt es ja an Delphi 7? Das Beispiel da oben wurde mit 10.2 Tokyo (gibt es auch kostenlos) kompiliert.

Nope..

Bei meinem D6 funktioniert es auch einwandfrei, somit sollte es auch mit D7 funktionieren..

[DeddyH]

Mal eine andere Frage: sind die Methoden denn auch den entsprechenden Events zugewiesen, oder wurde der Code einfach nur "frei Hand" eingetippt? Schau doch mal im Objektinspektor auf der Seite Ereignisse nach.

[t.roller]

Beispiel in #37 (EXE und Compilation) funktioniert auch in WIN8.1, XE7.

Code in #1 funktioniert mit kleinen Änderungen - an XE7 angepasst:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure NeuesFenster(Sender:TObject);
    procedure F2Close(Sender: TObject);
    procedure FC(Sender: TObject);

  private
    { Private-Deklarationen }
     bt1: TButton;
     bt2: TButton;
     F2: TForm;
     btEnde: TButton;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FC(Sender: TObject);
begin
 Application.Terminate;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 bt1:= TButton.Create(Self);
 bt1.SetBounds(20,20,160,60);
 bt1.Parent:= Self;
 bt1.Caption:= 'Neues Fenster';
 bt1.OnClick:= NeuesFenster;

 btEnde:= TButton.Create(Self);
 btEnde.SetBounds(20,100,160,60);
 btEnde.Parent:= Self;
 btEnde.Caption:= 'Schliessen';
 btEnde.OnClick:= FC;
end;

procedure TForm1.NeuesFenster(Sender:TObject);
begin
 F2:=TForm.Create(Self);
 F2.Show;
 bt2:= TButton.Create(F2);
 bt2.SetBounds(20,20,160,100);
 bt2.Parent:= F2;
 bt2.Caption:= 'Formular schließen';
 bt2.OnClick:= F2Close;
 bt1.enabled:=false;
end;

procedure TForm1.F2Close(Sender: TObject);
begin
 F2.Close;
 bt1.enabled:=true;
end;

end.

[justin.kuhn]

Zitat von DeddyH:

Mal eine andere Frage: sind die Methoden denn auch den entsprechenden Events zugewiesen, oder wurde der Code einfach nur "frei Hand" eingetippt? Schau doch mal im Objektinspektor auf der Seite Ereignisse nach.

Also ich habe den Code einfach nur "eingetippt" und im Objektinspektor lediglich das Formular umbenannt.

[Olli73]

Zitat von justin.kuhn:

Also ich habe den Code einfach nur "eingetippt" und im Objektinspektor lediglich das Formular umbenannt.

Du musst im Objektinspektor das OnCreate des Formulars natürlich zuweisen, sonst wird dein FormCreate nie aufgerufen.

Sollte man aber auch merken, dass es nie aufgerufen wird, wenn man sich mal einen Haltepunkt setzt.

[justin.kuhn]

Zitat von Olli73:

Du musst im Objektinspektor das OnCreate des Formulars natürlich zuweisen, sonst wird dein FormCreate nie aufgerufen.

Sollte man aber auch merken, dass es nie aufgerufen wird, wenn man sich mal einen Haltepunkt setzt.

Alles klar, das war mein Fehler. Ich danke euch allen für die Hilfe.

[a.def]

Zitat:

Also ich habe den Code einfach nur "eingetippt" und im Objektinspektor lediglich das Formular umbenannt.

Dann sind die Methoden keinen Events zugewiesen und es liegt daran.

Einfach eintippen darf man bei Delphi nicht außer man weißt die Events dann selber per Code und nicht im ObjektInspektor zu