Zur Laufzeit erstellte Komponente benutzen?

[draGo]

Zitat von Meflin:

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

Öh...meins schon

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

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

Eine Frage zum Thema hab ich noch.
Und zwar:
Wenn ich das Memo mit
TMemo(PageControl1.ActivePage.Controls[0]).befehl anspreche, wie kann ich dann das OnKeyDown/Up Ereignis abfangen?
Müsste ja irgendetwas mit
TMemo(PageControl1.ActivePage.Controls[0]).OnKeyDown sein, jedoch blick ich da noch nicht so ganz durch...

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 ^^