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

Delphi-Quellcode:

Memo1.CopyToClipboard

benutzen kann

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

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 :gruebel:
Hab ich dich falsch verstanden oder bin ich zu blöd? :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 :gruebel:

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 :gruebel:

[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

Delphi-Quellcode:

CopyToClipboard;

eigentlich sein? Mein Delphi kennt das irgendwie nicht :stupid:

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

[draGo]

Zitat:

Zitat von Meflin

Frage: was soll

Delphi-Quellcode:

CopyToClipboard;

eigentlich sein? Mein Delphi kennt das irgendwie nicht :stupid:

Öh...meins schon :D

Delphi-Quellcode:

Memox.CopytoClipboard;

ist der normale Befehl.

[Meflin]

Tatsächlich, kleiner Fehler meinerseits.

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var Memo: TMemo;
begin
  Memo := TMemo.Create(self);
  Memo.Parent := Form2;
  Memo.Name := 'test';
  Memo.Top := 50;
  Memo.Left := 50;
  Memo.Width := 100;
  Memo.Height := 100;
  Memo.BringToFront;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
  with FindComponent('test') as TMemo do
    CopyToClipboard;
end;

funktioniert einwandfrei! du hast also irgendwo einen Fehler drin...

[Cyberbob]

Ich habs mit

Delphi-Quellcode:

TMemo(PageControl1.ActivePage.Controls[0]).CopyToClipboard;

bemacht. hat auch soweit funktioniert.

PS: Wenn dein Memo nicht das erste Control ist, musst die Controls[0] durch 1,2,etc ersetzen.

[draGo]

Hi meflin,

habs jetzt mal mit delphi 2006 probiert. Da gehts auf einmal...*blöd schau*.
Danke dir :)

//Edit: wo war der rote kasten -.-'
@Cyber: werde es auch ausprobieren, danke ^^

[draGo]

Hallo nochmal :)

Sorry, wenn ich das Thema nochmal hochhole (Doppelpost), aber ich muss mich ja bemerkbar machen :angel2:

Eine Frage zum Thema hab ich noch.
Und zwar:
Wenn ich das Memo mit

Delphi-Quellcode:

TMemo(PageControl1.ActivePage.Controls[0]).befehl

anspreche, wie kann ich dann das OnKeyDown/Up Ereignis abfangen?
Müsste ja irgendetwas mit

Delphi-Quellcode:

TMemo(PageControl1.ActivePage.Controls[0]).OnKeyDown

sein, jedoch blick ich da noch nicht so ganz durch... :gruebel:

Danke für eure Hilfe,
mfg draGo.

[Cyberbob]

Du musst erst ein OnKeyDown Erreignis erstellen und dann beim Erstellen der neuen Komponente dieses erreignis bekoannt machen.

Delphi-Quellcode:

var
  ts: TTabSheet;
  mem: TWebBrowser;
begin
//TabSheet erstellen
  ts := TTabSheet.Create(PageControl1);
  ts.Caption := 'Window &' + IntToStr(PageControl.PageCount);
  ts.PageControl := PageControl1;
  ts.DoubleBuffered := True;
  PageControl.ActivePage := ts;

//Memo erstellen
  mem := TMemo1.Create(nil);

  mem.OnKeyDown    := MemoKeyDown;

Die Prozedur MemoKeyDown muss auch im Interface-Teil bekannt gemacht werden.

[draGo]

Ahh, vielen Dank :)
Funktioniert gut ^^