Also Bei dieser Funktion
Delphi-Quellcode:
procedure TForm1.MenuNeuesFensterClick(Sender: TObject);
var
NewItem:TMenuItem;
NewForm2:TForm2;
str:String;
begin
str := Inputbox('Name Eingeben','Namen Des Diagramms eingeben','');
if StringlistFenster.IndexOf(str) < 0 then
begin
Newitem := TMenuitem.create(self);
Newitem.caption := str;
stringlistFenster.add(str);
newitem.OnClick := Form1.DynMenuitem;
MenuFenster.add(NEwitem);
ListMenuItem.Add(@NEwitem);
NewForm2 := TForm2.create(self);
NewForm2.caption := str;
NEwForm2.Name:=str;
NEwForm2.Show;
ListFenster.add(@NewForm2);
end
else ShowMEssage('Der Name Existiert bereits!');
end;
Kann ich noch ganz locker auf das Formular zugreifen. Greif ich dan später auf einen der Zeiger aus der ListFenster zu dann sieht das so aus
Delphi-Quellcode:
PRocedure TForm1.DynMenuitem(Sender:Tobject);
var
i:Integer;
PForm2:^TForm2;
begin
i:= MenuFenster.IndexOf((Sender as TMenuItem));
PForm2 := ListFenster.Items[i-2];
PForm2^.Height := 130
end;
dann erhalte ich eine Fehlermeldung.
Gruß Timb0