CreateForm - Form "von außen" schließen

[Yheeky]

Hi!

Also ich habe eine Form, die ich mehrere Male erstellen muss. Das mache ich so:

Code:

Application.CreateForm(TfrmShortMessage, CreatedForm);
CreatedForm.Name := 'Seite' + IntToStr(NumberOfForms);
CreatedForm.FormStyle := fsStayOnTop;
//CreatedForm.Position := poScreenCenter;
CreatedForm.WindowState := wsNormal;

CreatedForm.Show;
Inc(NumberOfForms);

Jetzt will ich eine Form "von außen" wieder schließen lassen. Dies habe ich erfolglos versucht. Beide der folgenden Varianten haben nicht funktioniert:

1.)

Code:

for I := 1 to NumberOfForms-1 do
TForm(FindComponent('Seite' + IntToStr(I))).Close;

2.)

Code:

for I := 1 to NumberOfForms-1 do
TfrmShortMessage(FindComponent('Seite' + IntToStr(I))).Close;

Jedes Mal bekomme ich eine Zugriffsverletzung. Ist bestimmt ne kleine Sache, vielleicht kann mir ja jemand helfen.

Gruß Yheeky

[Yheeky]

Ähh, kurze Frage: Ist es vielleicht möglich, dass sich FindComponent nur auf Komponenten auf der Form und nicht auf die Form selbst bezieht?

[Christian Seehase]

Moin Yheeky,

FindComponent bezieht sich immer auf die Komponenten, die sich in dem Container befinden, zu dem FindComponent gehört, wie Du schon richtig angenommen hast.
Du müsstest also in Deinem Falle Application.FindComponent verwenden.

[Yheeky]

Ah! Okay danke, also das Schließen der Form klappt jetzt einfach mit Destroy. Was wäre aber, wenn ich nur die Caption der Form ändern möchte? Caption gibt es nämlich nicht...

[Christian Seehase]

Moin Yheeky,

auch für Dich bitte:
Neue Frage, neuer Thread.

Danke.

[Yheeky]

Okay, sorry :(