FormCreate in Delphi problem

Arbeite ich mit einem anderen code, und ich bin das hinzufügen einer neuen form

So, ich habe das Formular erstellt und ich kann es öffnen, verwenden Sie die Schaltflächen und Listen, etc, aber ich habe da ein problem, Dinge zu tun, die auf formcreate.

Ich machen um das Formular zu tun:

procedure TModelForm.RepeatOpen(Sender: TObject);
var
 DefForm : TForm5;
begin
 DefForm := TForm5.Create(Self);

 Self.Visible := False;
 try
  DefForm.ShowModal;
 finally
  Self.Visible := True;
  DefForm.Release;
 end;
end;

in meinem TForm5, ich habe eine Prozedur

procedure TForm5.FormCreate(Sender: TObject);
begin
 inherited;
 RunList := CModelList.Create;
 RunList.ReadData;
 RunList.FillList(ListBox1.Items);
end;

aber es tut nichts

Ich habe auch

procedure TForm5.PopulateListClick(Sender: TObject);
begin
 RunList := CModelList.Create;
 RunList.ReadData;
 RunList.FillList(ListBox1.Items);
end;

ist, der einer Taste zugeordnet, und dies tatsächlich funktioniert und füllt meine ListBox

Habe ich es online und wie es scheint, gibt es keine OnCreate-Funktion, es gibt einen Weg, um es zu überschreiben, aber es scheint, wie es sollte ein Weg gefunden werden, einfach definieren, was passiert, wenn der Rahmen zuerst geschaffen

auch der Grund, warum ich bin mit FormCreate ist, weil das ist, was der code mit dem ich arbeite ist zu tun, und es scheint zu funktionieren

Dank!

  • Warum nennen Sie "geerbt" in der FormCreate? Ist TForm5 = class (TForm)? Dann ist dies nicht richtig!!!! "Geerbt" genannt werden muss, wenn Sie Ihren eigenen Konstruktor, aber nicht in die Ereignisse! Haben Sie zugewiesen, die Ihre Veranstaltung zu den Formen "OnCreate"?
  • nichts falsch mit geerbt, in Veranstaltungen und in der Tat, die IDE macht es für Sie.
InformationsquelleAutor KingKong | 2011-05-12
  1. 4

    Meinst du, dass dein Event-Handler nicht ausgeführt?
    Wenn ja, hast du vielleicht nur vergessen, zu ordnen Sie die Verfahren, um die Form der OnCreate-Eigenschaft?

    • überprüfen Sie die OnCreate-Ereignis von Ihrem TForm5 im Objekt-Inspector, wenn wirklich zugeordnet. Wenn nicht, wählen Sie es mit combo oder Eingabe FormCreate in der OnCreate-event-Reihe.
    • Oh, das ist genau das, was ich gefragt wurde, dachte ich es sollte eine Möglichkeit, dies zu tun und ich fand es unter Sonstiges im Objekt-Inspektor. Dank
    • Oder doppelklicken Sie einfach auf einen "leeren" Platz auf einem form - nicht immer möglich, wenn Sie Platten oder andere Steuerelemente mit alClient alignment. Wenn Sie "Raster Anzeigen" im Formular-designer den leeren Raum zeigen Sie das raster an.
    InformationsquelleAutor Robert J.
  2. 5

    Haben Sie wahrscheinlich vergessen, zu ordnen FormCreate zu OnCreate. Ich persönlich würde es tun, durch das überschreiben des Konstruktors und so halten Sie die .dfm Formular aus dem Weg.

    Nebenbei möchte ich auf den Kommentar-code, den Sie schrieb:

    DefForm := TForm5.Create(Self);
Self.Visible := False;
try
  DefForm.ShowModal;
finally
  Self.Visible := True;
  DefForm.Release;
end;

    Brauchen Sie nicht, um einen Eigentümer zuweisen DefForm da Sie auf die übernahme der Aufgabe der Reinigung, obwohl es generell nicht Schaden, so weisen Sie einen Besitzer. Was mehr ist die try/finally ist versuchen zu tun, zwei jobs, aber es kann eigentlich nur eins tun. Der Aufruf Release ist nicht erforderlich, Sie können einfach anrufen Free.

    Ich würde es schreiben wie dieses:

    DefForm := TForm5.Create(nil);
try
  Self.Visible := False;
  try
    DefForm.ShowModal;
  finally
    Self.Visible := True;
  end;
finally
  DefForm.Free;
end;
    • von Zeit zu Zeit passiert es mir, dass, selbst wenn, lasse ich die IDE erstellen Sie den Ereignis-handler-header für mich, die *.dfm verlieren die Verbindung zu diesem handler später auf. Es ist ein Fehler die ich nicht reproduzieren können, was selten vorkommt. Ich habe versucht, gelten die IDE-fix-packs, aber es hilft nicht. Und weil ich faul bin zum schreiben der Header und schließen Sie Sie an die Ereignisse von mir, der einfachste Weg, wenn dies der Fall ist, schließen Sie Sie wieder im Objekt-Inspektor.
    • und warum würde nicht try/finally mehr tun, als eine Sache in finally block ?
    • Sie brauchen auch nicht zu spezifisch auf Self. Nur Visible := False; ... Visible := true; genug sein würde.
    • selbst hier macht es die explizite form wird unsichtbar gemacht.
    • im original-code try schützt nur die Zuordnung, um zu sehen. Es nicht richtig schützen die Lebensdauer der DefForm. Es ist möglich, dass eine Ausnahme ausgelöst wird, in sich selbst.visible := false und dann wird das Formular zugespielt werden. In der Regel versuchen, können schützen nur die Zeile unmittelbar vorhergehenden.
    • M: Sicher, Sie könnte legen Sie die Self., aber für die code Wartbarkeit/Lesbarkeit etwas, das kurz und prägnant reduziert Mehrdeutigkeiten oder sonst mehr ausdrücklich in Ihrer Absicht ist sehr viel Wert, ein paar zusätzliche bytes an code.
    • Nicht sicher, welcher Aspekt dieser provoziert den downvote.....
    • Heffernan - schwer zu sagen; ich habe nicht gestimmt bei diesem post, aber vielleicht, weil der Satz, dass try/finally-kann wirklich nur ein job. Ich weiß, es ist hauptsächlich verwendet, wie Sie schon hier, aber das bedeutet nicht, dass Sie können nicht mehr tun, als nur eine Sache.
    • OO-code, wo die Instanz-Methoden beziehen sich auf Self oder this sind in der Regel ein code smell, dass der Autor nicht ganz Begriffen, was Sie tun. Es ist wie if MyBoolValue = true then... es ist gültig, aber nicht notwendig. Ich persönlich glaube nicht, dass dieses Beispiel ist nicht eindeutig zu - in der Tat, die Zugabe von Self. tatsächlich macht es schwieriger zu Lesen.

    InformationsquelleAutor David Heffernan
  3. 1

    Habe ich es online und es
    scheint, wie es gibt keine OnCreate
    Funktion, gibt es eine Möglichkeit zum überschreiben
    aber es scheint, wie es sein sollte
    Weise zu definieren, was passiert, wenn
    der Rahmen wird zuerst erstellt

    OK, ich bin ein bisschen verwirrt hier. Sprichst du von einem form oder eine Rahmen? Formen haben einen OnCreate-handler, aber frames nicht. Wenn Sie wollen etwas passieren, wenn ein Rahmen erstellt, der Konstruktor überschrieben.

    constructor TMyFrame.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);
 RunList := CModelList.Create;
 RunList.ReadData;
 RunList.FillList(ListBox1.Items);
end;

    Ähnlich, frames haben keine OnDestroy, so stellen Sie sicher, dass das überschreiben der Destruktor, wenn es alles, was Sie brauchen, um aufzuräumen.

    • Es ist ein onCreate-Ereignis, aber es ist nicht veröffentlicht. Aber ich Stimme zu, ich würde der Konstruktor überschrieben - aber ich würde bewegen Sie den laden etc. wie ich oben beschrieben habe. Daumen hoch.
    InformationsquelleAutor Mason Wheeler
Schreibe einen Kommentar