Erstellen einer TRichEdit Komponente

[HolgerCW]

Hallo zusammen,

wie erstelle ich im Code eine TRichEdit-Komponente.

Was muss als Parameter bei:

Delphi-Quellcode:

var
 MeinRE_Text: TRichEdit;
begin
 MeinRE_Text := TRichEdit.Create(???);
end;

rein ?

Brauche die Komponente nur um Sie an eine Funktion zu übergeben.

Gruss

Holger

[DeddyH]

Das Control, das als Owner für die Freigabe des RichEdit zuständig sein soll (kann auch nil sein, aber dann musst Du händisch freigeben).

[HolgerCW]

Zitat:

Zitat von DeddyH

(kann auch nil sein, aber dann musst Du händisch freigeben).

Vielen dank. Wie gebe ich denn händisch frei ?

[DeddyH]

Mit Free bzw. FreeAndNil.

Delphi-Quellcode:

RE := TRichEdit.Create(nil);
try
  //Mach was mit dem RichEdit
finally
  RE.Free;
  //oder FreeAndNil(RE);
end;

[HolgerCW]

Du meinst zum Schluss händisch frei geben ?

Wenn ich nämlich folgendes tue:

Delphi-Quellcode:

MeinRE_Text := TRichEdit.Create(nil);
MeinRE_Text.Lines.Insert(0,'Test');

kommt die Meldung: "hat kein übergeordnetes Fenster"

Gruss

Holger

[DeddyH]

Delphi-Quellcode:

MeinRE_Text := TRichEdit.Create(nil);
MeinRE_Text.Parent := self; //Parent setzen
MeinRE_Text.Lines.Insert(0,'Test');

[Lannes]

Hallo,

Zitat:

Zitat von HolgerCW

Brauche die Komponente nur um Sie an eine Funktion zu übergeben.

wenn ich mal fragen darf, was macht die Funktion mit dem übergebenem RichEdit?

[DeddyH]

Ich kann nur vermuten, dass es um RTF geht.

[Lannes]

Hallo,

hätte ich jetzt nicht gedacht :mrgreen:

Wenn nur die internen Funktionalitäten des RichEdit genutzt werden sollen würde ich eine unsichtbares(virtuelles) RichEdit nutzen.

Delphi-Quellcode:

// war mal in einem Thread ein Vorschlag von marabu
FVirtualRE := TRichEdit.CreateParented(THandle(-3));

damit kann man alles veranstalten, z.B.auch per SelAttributes RTF-Code verändern, RTF drucken etc.

[DeddyH]

Das ist natürlich die elegantere Methode, aber ich wollte zumindest die Ausgangsfrage beantworten :mrgreen:

[Ralf Kaiser]

Zitat:

Zitat von Lannes

Delphi-Quellcode:

// war mal in einem Thread ein Vorschlag von marabu
FVirtualRE := TRichEdit.CreateParented(THandle(-3));

Nur mal aus Interesse: Was ist "-3"?

Ich würde an der Stelle etwas wie "GetDesktopWindow" nehmen (man braucht ja eigentlich ein gültiges Handle, hab ich zumindest gedacht)

[Lannes]

Hallo,

:arrow: message-only window
Wenn du den Link verfolgst wirst Du ausreichende Informationen bekommen.

[Ralf Kaiser]

Danke für die Info. Das wusste ich noch nicht (man lernt eben nie aus... :thumb: )

[HolgerCW]

Vielen dank für Eure Hilfen.

So funktioniert es.

Gruss

Holger