Zur Laufzeit erstellte Komponente benutzen?

[draGo]

Nabend DP,

Forensuche hat mir leider nicht geholfen...

ich habe mit

Delphi-Quellcode:

var Tab: TTabsheet;
    Memo: TMemo;
begin
 Tab := TTabsheet.Create(Form1.PageControl1);
 tab.Caption := 'Neues Dokument';
 tab.PageControl := Pagecontrol1;

 memo := Tmemo.Create(tab);
 memo.Parent := tab;
 memo.Align := alclient;
end;

Ein neues Tab (während der Laufzeit) in meinem PageControl erstellt, welches ein Memo enthält...
Wenn ich jetzt in meinem Menü z.b "Kopieren" klicke möchte ich den makierten Text im Memo, welches auf dem aktiven Tab ist kopieren... Doch wie spreche ich das Memofeld an wenn ich z.b. 5 Tabs habe? Ich habe ja keinen bestimmten namen mit dem ich einfach
Memo1.CopyToClipboard benutzen kann

Ich hoffe ihr habt meine etwas komische Erklärung jetzt verstanden

danke schonmal,
draGo

[fwsp]

leg die tab variable in das public der form und sprich es dann einfach über den namen an.

[draGo]

Hi fwsp,

ähm..Bahnhof

Du meinst ich soll die TabVariable ins Public legen... also:

Delphi-Quellcode:

  public
    { Public declarations }
   Tab: TTabsheet;

Jedoch kann ich dann trotzdem das Memo nicht über Tab.Memo ansprechen
Hab ich dich falsch verstanden oder bin ich zu blöd?

mfg
draGo

[fwsp]

leg das memo auch ins public und dann kannst du es ganz normal ansprechen.
//Edit
sind doch beides elemente der form.

[draGo]

Hi fwsp,

nein das geht nicht ^^
Denn durch den obigen Code wird das Memo ja erst erstellt sobald das neue Tab erstellt wird...
Somit kann ich es ja nicht vor seiner Existenz ansprechen.

mfg
draGo

[Meflin]

Du weist dem Memo via Memo.Name einen Namen zu und kanst dann via FindComponent darauf zugreifen

[draGo]

Hm...

also mit

Delphi-Quellcode:

Finden := FindComponent('test');
//bzw:
Finden := FindComponent('test') as TMemo;

kann ich nicht auf Finden.CopyToClipboard zugreifen...
Langsam zweifel ich an meinem Gedächtnis

Außerdem: Wenn ich 5 Tabs habe (und somit 5 Memos), wie kann ich denen alle gewisse Namen zuweisen mit denen ich auf sie zugreife?
Schließlich kann ich ja nicht immer den selben Namen verwenden

[Meflin]

Delphi-Quellcode:

with FindComponent('test') as TMemo do begin
  CopyToClipboard;
end;

sollte eigentlich gehen.

Zum 2. Problem: du erstellst die Memos in einer Schleife und beziehst deine Schleifenvariable i in den Namen ein - schon hast du eindeutige Namen die du verwenden kannst!

[draGo]

Hi meflin,

Delphi-Quellcode:

with FindComponent('test') as Tmemo do
CopyToClipboard;

macht keinen Ärger beim kompilieren, ruft jedoch folgenden Fehler aus sobald man kopieren drückt (Anhang)

Deiner Lösung zum zweiten Problem widme ich mich gleich ^^

[Meflin]

Frage: was soll
CopyToClipboard; eigentlich sein? Mein Delphi kennt das irgendwie nicht

Noch ne ösung zu deinem 2. Problem: ein (public) array of TMemo verwenden! Damit könntest du dir dann auch FindComponent sparen...