Hallo!

Ich erzeuge in einer Prozedur ein neues Form, was auch richtig angezeigt wird.

zusammenfalten · markieren

Delphi-Quellcode:

procedure makeZettel(nummer:integer);
begin
  zettel.zettel:=TForm.Create(Form1);
  zettel.zettel.Color:=Form2.Color;
  zettel.zettel.BorderStyle:=Form2.BorderStyle;
  zettel.zettel.TransparentColor:=Form2.TransparentColor;
  zettel.zettel.TransparentColorValue:=Form2.TransparentColorValue;
  zettel.zettel.Width:=Form2.Width;
  zettel.zettel.Height:=Form2.Height;
  zettel.zettel.Name:='f_'+IntToStr(nummer);
  
  (mehr Code)

  zettel.zettel.Visible:=true;
end;

(zettel.zettel is ne Form in nem record und nummer beginnt mit 1)

nur wenn ich dann mit:
showmessage(TForm(Application.FindComponent('f_1')).Name); versuchen will auf die Componente zuzugreifen erhalte ich eine Zugriffsverletzung.

Ich habe schon versucht den Namen direkt mit f_1 festzulegen, nur es bringt einfach nix. Habe mir sogar in ne ListBox die erstellen Namen reinschreiben lassen.
Habt ihr ne Idee?
Rumexperiementieren mit dem parent hat acuh nix gebracht.

Habt ihr ne Idee?

Gruß
Logic

Hallo!

Zitat von Logic:

zettel.zettel:=TForm.Create(Form1);

Ich denke, hier liegt die Ursache Deines Problems. Du machst Form1 zum Owner Deiner neuen Form.

Du suchst dann aber in den Forms der Application nach Deiner neuen Form:

Zitat von Logic:

Application.FindComponent

Du mußt entweder die Form mit Application als Owner generieren oder mit Form1.FindComponent arbeiten.

Hope it helps

onlinekater

Hallo onlinekater,

danke für deine Antwort, genau das war der Fehler

Thx