RichEdit erstellen, wenns auf die Form gezogen wird.

[Die Muhkuh]

Hi,

ich hab grad angefangen die Kompo zu proggen zu der mir geraten wurde :mrgreen:

Meine Kompo (Abgeleitet von TShellListView) soll, wenn sie auf die Form gezogen ein RichEdit dazuerstellen.

Delphi-Quellcode:

constructor TThumbnail.Create(AOwner : TCustomListView);
begin
  inherited Create(AOwner);

  ViewStyle := vsList;

  { Erzeugen des RichEdits }
  FRichEdit := TRichEdit.Create(AOwner);
  FRichEdit.Width  := 100;
  FRichEdit.Height := 100;
  FRichEdit.Top := Top;
  FRichEdit.Left := Left + Width;

Leider geht das so nicht. Könnt ihr mir helfen?

[CalganX]

Hi,
soweit ich weiß musst das inherited am Ende deiner Routine schreiben.

Schau dir doch mal den SourceCode von TLabeledEdit an.

Chris

[Christian Seehase]

Moin Spider,

dazu müsstest Du noch einen Parent angeben, dies dürfte aber erst in der Methode CreateWnd zugreifbar sein, und Du musst dort aufpassen (z.B. mit einem Flag), dass Du die Zuweisung auch nur einmal durchführst. CreateWnd kann öfter aufgerufen werden.

[Die Muhkuh]

Moin Chris,

kannst du das noch ein bisschen erläutern bzw. mir nen kleinen Beispielcode geben? ich weiß nicht so ganz was du meint :? .

@All

Ich hab jetzt folgenden Code

Delphi-Quellcode:

FRichEdit := TRichEdit.Create(AOwner);
  FRichEdit.FreeNotification(Self);
  FRichEdit.Parent := Self;
  FRichEdit.Top := Top;
  FRichEdit.Left := Left + Width;
  FRichEdit.Width := Width;
  FRichEdit.Height := Height;

Das Problem ist nun das ein eine Zugriffverletzung bekomme:

---------------------------
Fehler
---------------------------
Zugriffsverletzung bei Adresse 007F0D18 in Modul 'vcl70.bpl'. Lesen von Adresse 00000004.
---------------------------
OK
---------------------------

Was nun?

[mirage228]

Woher hast du denn das FreeNotification :shock: ?

mfG
mirage228

[Die Muhkuh]

:oops:

Chris (Chak), sagte ich solle mal das Beispiel von den LabeledEdit angucken. dort war das so drinne

[mirage228]

Zitat:

Zitat von Spider

:oops:

Chris (Chak), sagte ich solle mal das Beispiel von den LabeledEdit angucken. dort war das so drinne

Achso, Ja, Ok. Da steht es drin.

mfG
mirage228

[CalganX]

Hi,
du weißt dem Richedit, das neue Control zu. :gruebel: Sicher, dass du das willst? ;)

Eher wäre wohl, den parent von der Klasse selfbst. ;)

Chris

[Die Muhkuh]

@Chak irgendwie kapier ich nicht was du mir sagen willst.

[CalganX]

Hi,
du schreibst:

Delphi-Quellcode:

FRichEdit.Parent := Self;

Und das KANN nur einen Fehler verursachen. ;)

Mach daraus mal:

Delphi-Quellcode:

FRichEdit.Parent := Self.Parent;

So sollte es eigentlich funktionieren. :gruebel:

Chris