hoi

ich erstelle zur laufzeit 1 button, 1 memo, 1 tabsheet.

zusammenfalten · markieren

Delphi-Quellcode:

Type TFenster = Record
                  TabSheet: TTabSheet;
                  Memo: TMemo;
                  Button: TButton;
                end;

...

var
  dynArray: Array of TFenster;

...

procedure TForm1.ButtonClick(Button: TObject);
var
  nummer: string;
begin
  with Button as TButton do
  begin
    nummer := Name;
    delete(nummer, 1, 6); // 1-6 = 'Button'
    showmessage('Memo' + nummer);
    (FindComponent('Memo' + nummer) as TMemo).Free;
  end;
end;

...

procedure TForm1.ButtonlClick(Sender: TObject);
begin
  SetLength(dynArray, high(dynArray)+2);
  dynArray[high(dynArray)].TabSheet := TTabSheet.Create(self);
  with dynArray[high(dynArray)].TabSheet do
  begin
    Name := 'TabSheet' + IntToStr(high(dynArray)+1);
    Caption := 'hi';
    PageControl := PageControl1;
    Show;
  end;
  dynArray[high(dynArray)].Memo := TMemo.Create(self);
  with dynArray[high(dynArray)].Memo do
  begin
    Name := 'Memo' + IntToStr(high(dynArray)+1);
    Parent := dynArray[high(dynArray)].TabSheet;
    Left := 10;
    Top := 10;
    Height := dynArray[high(dynArray)].TabSheet.Height-20;
    Width := dynArray[high(dynArray)].TabSheet.Width-20;
    Show;
  end;
  dynArray[high(dynArray)].Button := TButton.Create(self);
  with dynArray[high(dynArray)].Button do
  begin
    Name := 'Button' + IntToStr(high(dynArray)+1);
    Parent := dynArray[high(dynArray)].TabSheet;
    Left := 50;
    Top := 50;
    Height := 21;
    Width := 70;
    Show;
    OnClick := ButtonClick;
  end;
end;

wies geht mein memo per Free nicht weg?

Moin Pseudemys Nelsoni,

das dürfte daran liegen, dass Dein FindComponent im ButtonClick fehlschlägt.
Ohne Angabe der zugehörigen Kompo wird das FindComponent des Formulares benutzt, da es in einer Methode des Formulares aufgerufen wird, der Parent für das Memo ist aber das Tabsheet.
Somit ist das Memo nicht im Array of Components des Formulares enthalten, und wird dort nicht gefunden.

hoi,

krieg ichn tip

selbst wenn ich überall als Parent Form1 angebe gehts nicht, hmm

Moin Pseudemys Nelsoni,

dann leg' doch mal in der ButtonClick Routine noch eine Variable vom Typ TComponent an, und weise dieser das Ergebnis von FindComponent zu, statt es direkt zu benutzen.
Anschliessend kannst Du dann ja prüfen, ob FindComponent erfolgreich war oder nicht (Wert der Variablen <> nil => gesuchte Kompo gefunden)

Hallo Christian,

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.ButtonClick(Button: TObject);
var
  nummer: string;
  tc: TComponent;
begin
  with (Button as TButton) do
  begin
    nummer := Name;
    tc := TComponent.Create(self);
    delete(nummer, 1, 6); // 1-6 = 'Button'
    tc := FindComponent('Memo' + nummer);
    tc.Free;
  end;
end;

meinst du so? Das funktioniert auch nicht. :\

Moin Pseudemys Nelsoni,

im Prinzip meinte ich das so, nur, dass Du erst einmal nachschauen solltest, ob tc überhaupt einen gültigen Wert enthält.

tc erhält "Memo1"

deswegen hab ich s.o im Test auch "showmessage('Memo' + nummer);" mit drin gehabt, hatte nur vergessen das hier für das forum rauszunehmen

hm, selbst wenn ich findcomponent direkt "Memo!" gebe schlisst sich das memo1 nicht:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.ButtonClick(Button: TObject);
var
  tc: TComponent;
begin
  with (Button as TButton) do
  begin
    tc := TComponent.Create(self);
    tc := FindComponent('Memo1');
    tc.Free;
  end;
end;

lag komischerweise daran, das ich das Memo1.free innerhalb von dem with button as tbutton ausgeführt habe, komisch, wieso das? also es geht so:

markieren

Delphi-Quellcode:

procedure TForm1.ButtonClick(Button: TObject);
var
  tc: TComponent;
begin
  tc := TComponent.Create(self);
  tc := FindComponent('Memo1');
  tc.Free;
end;

bzw so:

markieren

Delphi-Quellcode:

procedure TForm1.ButtonClick(Button: TObject);
begin
  TMemo(FindComponent('Memo1')).Free;
end;

Moin Pseudemys Nelsoni,

dann schau Dir mal in der Hilfe die Methoden von TButton an.
Danach dürfte klar sein, warum es nicht so funktioniert hat.

BTW:
In meinem ersten Posting hatte ich Dir ja schon vorgeschlagen mit anzugeben, von welcher Kompo Du das FindComponent benutzen willst.
Zugegeben, meine Feststellung mit dem Form1.FindComponent war falsch, weil ich das With nicht beachtet hatte, aber bei direkter Angabe der Kompo vor dem FindComponent hätte es auch innerhalb des With-Blockes funktioniert.