Registriert seit: 27. Apr 2006
Ort: Gieboldehausen
167 Beiträge
|
Re: Formular mit Komponenten in laufender Anwendung erstelle
1. Jun 2006, 17:56
Hi
Nun, ich versteh, das du verzweifelst...
Also, versuch dich mal vom Array zu lösen
Type
....
TMyForm = Class(TForm)
MyButton : TButton;
MyList : TStringlist;
MyEdit : TEdit;
MyxObject: TxObject;
//Was heissen soll, alle deine Elemente, die du in der Form brauchst, definierst du in Variablen
// und nun die benötigten Prozeduren und Funktionen
Procedure MyProc(....);
Function MyFunc(....):MyVar;
//und was du sonst noch brauchst.....
end;
In der Variablendeklaration setzt du deine Variable für dein Object
var
......
MyForm : TMyForm; // oder sonstige abgeleitete Objecte...
.....
MyStringList : TStringList; // manchmal nützlich, wenn man auf seine Objecte zurückgreifen möchte ...
// weil über
MyStringList.AddObject(xObject.Name,xObject); //das Object gespeichert wird
//und dies zum Auffinden
t:=MyListe.IndexOf(ObjName); // t ist eine Integervariable...
if MyListe.Objects[ t ] is TMyObject then
begin
(MyListe.Objects[ t ] as TMyObject).TeilObject.OnClick:=(MyListe.Objects[ t ] as TMyObject).TeilObject_Click;
....
//in diesem Fall war TMyObject ein TPanel mit Checkboxen, hier als Teilobject benannt....
// die OnClick-Methode muß zur Entwurfszeit geschrieben, zur Laufzeit den erzeugten Objecten zugewiesen werden
end;
So, nun zu deinen Form-Objecten
Wenn du immer nur eines erzeugst, so brauchst du keine Liste,folgende Anweisung erledigt das und erzeugt dir ein Formular, welches du aber erst wieder schleißen mußt, bevor ein neues erzeugt werden kann.
Application.CreateForm(TMyForm, MyForm);
MyForm.Visible:=False;
MyForm.ShowModal;
MyForm.Free;
ansonsten probier mal
Application.CreateForm(TMyForm, MyForm);
MyForm.Name:='MyForm'+intToStr(Zaehler);
MyStringList.AddObject(MyForm.Name,MyForm);
vergiss aber nicht, den Eintrag zu löschen, wenn du das Object schließt.....
Viel Spass und tob dich erst mal aus
Gruß oldmax
Noch ist mein Rechner mir zu Diensten.... ansonsten habe ich die Macht ihn zu vernichten !
|