Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by MisterNiceGuy,
31. Dez 2005
danke für den Hinweis :) Vielleicht weil man an eine Art denkt? :gruebel:
Wird gleich geändert!
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by MisterNiceGuy,
31. Dez 2005
puh jetzt geht es und wen es interessiert was das ganze soll kann sich da unten das Ergebnis angucken :D
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by MisterNiceGuy,
31. Dez 2005
Das ist ja leider nicht mehr das Problem, ich finde das Listview ja nun, aber ich kann keine neuen Items hinzufügen...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by MisterNiceGuy,
31. Dez 2005
Falls es jemanden interessiert ich habs jetzt mit einer eigenen Methode gelöst.
function TForm1.FindListview(const Name: string): TListview;
var i,j: Integer;
begin
for i:=0 to form1.PageControl1.PageCount-1 do
for j:=0 to pagecontrol1.Pages.ComponentCount-1 do
if pagecontrol1.Pages.Components is TListview then
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by MisterNiceGuy,
31. Dez 2005
hm ich könnte die Listviews am Ende ja "Freen" aber wenn ich
new_listview := TListview.Create(Form1);
angebe, dann wird das Listview doch auf der Form erstellt oder irre ich mich da?
Gibt es noch eine andere möglichkeit an den Namen der Komponente ranzukommen außer per FindComponent?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by MisterNiceGuy,
30. Dez 2005
Japp der gesamte Code des Creates ist hier:
var new_sheet:TTabSheet;
new_listview:TListview;
new_button:TButton;
begin
new_Sheet := TTabSheet.Create(PageControl1);
new_Sheet.Caption := inputbox('Neue Liste','Bitte Namen für die Liste eingeben','Neue Liste');
new_Sheet.PageControl := PageControl1;
new_listview := TListview.Create(new_Sheet);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by MisterNiceGuy,
30. Dez 2005
Hi ich erstelle ein Listview dynamisch und gebe ihm einen Namen. Jetzt will ich auf eben diesen Namen zugreifen, aber ich bekomme jedesmal eine Fehlermeldung.
Der Code sieht wie folgt aus:
var currentlist:TListview
...
currentlist := TListview(Findcomponent('listview'+inttostr(PageControl1.ActivePageIndex)));
showmessage(currentlist.Name);
...