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

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

[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?

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 high(dynArray) den letzten gültigen Index im Array dynArray ermittelst, liegt 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: 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 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)