Hi,

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

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

zusammenfalten · markieren

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?

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

Schau dir doch mal den SourceCode von TLabeledEdit an.

Chris

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.

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

markieren

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?

Woher hast du denn das FreeNotification ?

mfG
mirage228

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

Zitat von Spider:

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

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

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

Chris

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

Hi,
du schreibst:
FRichEdit.Parent := Self; Und das KANN nur einen Fehler verursachen.

Mach daraus mal:
FRichEdit.Parent := Self.Parent; So sollte es eigentlich funktionieren.

Chris