Memo zur laufzeit Kreieren und schliessen

[Pseudemys Nelsoni]

hoi

ich habe ein PageControl auf meiner Form ich möchte nun das ich per button click immer 1 neues TabSheet mit einem memo und einem Button drin habe, der button in dem tabsheet soll das Tabsheet, das memo und sich selbst wieder Free'en.


[edit=Luckie]Zwei Fragen, zwei Threads. Nach 1338 Beiträgen sollte man das aber wissen. Zweite Frage von mir entfernt. Mfg, Luckie[/edit]

[Nico Lausch]

Hallo

ich versuche mal dir meine Ideen zu deinem Prob hinzuschreiben
aber diese sind nicht getestet!

müssten aber stimmen :zwinker:

Code:

// Neue TabSheet Seite wird erstellt
with TTabSheet.Create(FormMain.PageControlData) do
begin
   PageControl := FormMain.PageControlData;
   Name        := 'ObjectName';
   Caption     := DeinForm.MediumArchivName;
end;

Für Memo

Code:

....
var MyMemo1: TMemo;
....
// MyMemo1 wird erstellt
   MyMemo1        := TMemo.Create(self);
   MyMemo1.Name   := ObjectName;
   MyMemo1.Parent := DeinForm.PageControlData.Pages[DeinForm.PageControlData.PageCount-1];
   MyMemo1.Width  := 100;
   MyMemo1.Left   := 10;
   MyMemo1.Top    := 10;

Für Button

Code:

....
var MyButton: TButton;
....
// MyButton wird erstellt
   MyButton        := MyButton .Create(self);
   MyButton.Name   := ObjectName;
   MyButton.Parent := DeinForm.PageControlData.Pages[DeinForm.PageControlData.PageCount-1];
   MyButton.Left   := 50;
   MyButton.Top    := 50;
   MyButton.OnClick:= MyButtonClick(Sender: TObject); //Deine Ereignisbehandlungsroutine

Alles mal so im Freiflug gecoded eben :stupid:

[Pseudemys Nelsoni]

hoi, danke :) ich teste das mal

[Pseudemys Nelsoni]

hi,

ich hatte das nochmal mit nem dynamischem array gemacht, da ich beliebig viele brauche,
aber irgendwie bekomme ich beim buttonclick ne Zugriffsverletzung.
Was ist an folgendem falsch?

Delphi-Quellcode:

dynArray: Array of TTabSheet;  // Global

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetLength(dynArray, high(dynArray)+2);
  with  dynArray[high(dynArray)+1] do
  begin
    Create(self);
    Name := 'TabSheet' + IntToStr(high(dynArray)+1);
    Parent := PageControl1;
    Caption := 'hi';
    PageControl := PageControl1;
    Show;
  end;
end;

[choose]

Wenn Du mit

Delphi-Quellcode:

high(dynArray)

den letzten gültigen Index im Array dynArray ermittelst, liegt

Delphi-Quellcode:

dynArray[high(dynArray)+1]

immer außerhalb des gültigen Bereichs, egal, welche Zeile vor oder nach diesem Ausdruck liegt...

[Pseudemys Nelsoni]

hm, aber ohne +1 ist kein create möglich, jedenfalls wird die create zeile dann blau markiert, ist es denn mit high nicht möglich das ich length nehmen muss?

[choose]

Wenn ich Dich richtig verstehe, möchtest Du Dein Array um ein Element vergrößern und an die hinzugekommene Stelle ein einen Wert schreiben.

Wenn Du mit SetLength die Länge des Arrays myArray verändern kannst und es vorher die "Länge" myLen hatte, sollte das also so gehen:

Delphi-Quellcode:

SetLength(myArray, Succ(myLen));

Weil sich die Länge eines Arrays mit Length (=High+1) ermitteln lässt, bleibt die Frage, wie Du das hinzugefügte Element ermittelst: Nun, das wiederum entspricht dem letzten Element nach der Größenänderung (siehe vorheriges Posting)... Alles klar ;)

[Pseudemys Nelsoni]

Suxx ist in dem sinne doch das gleiche wie aktuelle länge +1 oder ?

[Pseudemys Nelsoni]

ich meinte natürlich "Succ", sorry *G*

[choose]

Zitat:

Zitat von Pseudemys Nelsoni

Succ ist doch das gleiche wie aktuelle länge +1 oder ?

Es gilt

Code:

Succ(2)  =  2+1  =  3  =  4-1  =  Pred(4)

[Pseudemys Nelsoni]

hm, jo die funktionen erhöhen bzw vermindern einen ordinalen typ, aber in zusammenhang mit meinem array versteh ich das irgendwie nicht *g* ich hab doch damals mein array auch mit high+2 ein neues "item" hinzugefügt. high gibt bei meinem array wenn es noch keine "items" hat -1 zurück, also müsste high(array)+2 zur erstellung gehen hmm

[choose]

Zitat:

Zitat von Pseudemys Nelsoni

ich hab doch damals mein array auch mit high+2 ein neues "item" hinzugefügt.

Das ist auch kein Problem, es gilt für jedes dynamisches Array myArray

Delphi-Quellcode:

Length(myArray)=High(myArray)+1

Das Problem ist die erneute Verwendung von High. Ich beschreibe Deinen Code mal verbal und gehe dabei davon aus, dass das Array zum Eintritt in den folgenden Abschnitt bereits die Länge 5 besitzt:

• Code:

  Momentane Länge (Length): 5. Letzter Index (High): 4

• Setze die Länge des Arrays auf den letzten Index+2
• Code:

  Momentane Länge (Length): 6. Letzer Index (High): 5

• Schreibender Zugriff auf letzten Index+1
• Code:

  Laufzeitfehler: Letzer Index (High):5, Zugriff auf 6!

[Pseudemys Nelsoni]

war das +1 dann falsch?

weil

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetLength(dynArray, high(dynArray)+2);  // = -1 +2 (länge auf 1 setzen)
  with  dynArray[high(dynArray)] do   // = dynArray[0]
  begin
    Create(self);
    Name := 'TabSheet' + IntToStr(high(dynArray)+1);  // = TabSheet1
    Parent := PageControl1;
    Caption := 'hi';
    PageControl := PageControl1;
    Show;
  end;
end;

das geht nicht.

Deine Erklärungen find ich gut :), aber ich denke so wie ichs hab ist doch eigentlich nicht falsch oder? (naja muss ja sonst käme kein fehler)

[choose]

Du schreibst

Delphi-Quellcode:

with dynArray[AnIndex] do
begin
  Create(Self);

das entspricht dem Code

Delphi-Quellcode:

var
  myPageControl: TPageControl;
begin
  myPageControl.Create(Self);

richtig hingegen wäre

Delphi-Quellcode:

myPageControl:= TPageControl.Create(Self);

Dann sind mir die beiden Zeilen

Delphi-Quellcode:

Parent := PageControl1;
PageControl := PageControl1;

nicht ganz klar...

[Pseudemys Nelsoni]

ah, stimmt, so

Delphi-Quellcode:

dynArray[high(dynArray)] := TTabSheet.Create(self);

musste es heissen, nun geht alles, danke :)

Zitat:

Dann sind mir die beiden Zeilen
Source:
Parent := PageControl1;
PageControl := PageControl1;

nicht ganz klar...

ob Parent := PageControl1; wichtig ist weiss ich nicht, aber schaden tuts ja nicht. Also damit hab ich dem TabSheet das PageControl als Elternteil gegeben
und mit "PageControl := PageControl1;" geb ich das pagecontrol für das tabsheet an (hoffe hab mich richtig ausgdrückt *g*), jedenfalls geht es ohne diese zuweisung nicht


nochmal danke :)

[Pseudemys Nelsoni]

das hier war ein doppelpost, kann ein mod löschen