Probleme mit TRichEdit

[Jonas]

Hi, ich versuche ein TRichEdit Feld zu erstellen was auch wunderbar klappt bis ich die Farbe, Color setzten will. Danach bekomme ich folgenden fehler.

Im projekt ist eine Exception der Klasse Einvalid Operation aufgetreten. Medlung: 'Element " hat
kein übergeordnetes Fenster'.

Delphi-Quellcode:

unit gsticky;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ComCtrls;

type
  Tsticky = class(TCustomControl)
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure   Paint; override;
  private
    FirstDraw: boolean;
    stickynote: TRichEdit;
  public
  end;
constructor Tsticky.Create(AOwner: TComponent);
begin
inherited Create(Aowner);
imageresDLL := LoadLibrary(PChar('imageres.dll'));
  stickynote := TRichEdit.Create(self);
  stickynote.Parent := Self;
  stickynote.Enabled := true;
  stickynote.Left := 60;
  stickynote.Top := 10;
  stickynote.Width := 80;
  stickynote.Height := 45;
  //stickynote.Color := clLime;
  stickynote.BorderStyle := BsNone;

[xaromz]

Hallo,

im Konstruktor Deiner Komponente hat diese noch kein Parent, deshalb kannst Du auch keine visuellen Eigenschaften des untergeordneten TRichEdit ändern.
Bau Dir eine Funktion, die nach der Erstellung aufgerufen wird, dann klappt's. Oder benutze im Konstruktor den Owner als Parent, wenn das ein TWinControl ist (das ist dann aber nicht sauber).
Du kannst auch SetParent überschreiben und dort Deine Farbe ändern.

Gruß
xaromz

[Jonas]

Mhm...ich check noch nich so ganz wie das nu gemeint is?!

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ComCtrls, desktopsticky;

type
  Tsticky = class (TCustomControl)
    constructor Create(AOwner: TComponent); override;
  private
    stickynote: TRichEdit;
  public
  end;

constructor Tsticky.Create(AOwner: TComponent);
begin
inherited Create(Aowner);
  stickynote := TRichEdit.Create(AOwner);
  stickynote.Parent := Self;
  stickynote.Enabled := true;
  stickynote.Left := 60;
  stickynote.Top := 10;
  stickynote.Width := 80;
  stickynote.Height := 45;
 // stickynote.Color := clLime;
  stickynote.BorderStyle := BsNone;

[xaromz]

Hallo,

Du erstellst in Deiner Komponente "TSticky" eine weitere (TRichEdit), die auf dieser Komponente sitzt. Zu diesem Zeitpunkt (im Konstruktor) hat TSticky noch keinen Parent und somit auch kein gültiges Window-Handle. Damit hat auch Dein TRichEdit kein gültiges Window-Handle und eine Veränderung der Optik schlägt fehl. Der Fehler tritt nämlich in der Methode "CreateHandle" von TControl auf.

Gruß
xaromz

[GuenterS]

Oder du verwendest dafür afterconstruction, damit sollt es dann eigentlich auch gehn.

[xaromz]

Hallo,

Zitat von GuenterS:

Oder du verwendest dafür afterconstruction, damit sollt es dann eigentlich auch gehn.

das wird nicht funktionieren, AfterConstruction wird ja nach dem Konstruktor aufgerufen, da ist immer noch kein Parent gesetzt.

Gruß
xaromz

[Jonas]

Also entweder mach ich was falsch oder ich bin einfach nur sau dumm. Wenn ich im den Parent auf self setzte bekomm ich den Fehler: "*Steuerelement kann nicht sich selbst als Vorfahr haben*"

[Khabarakh]

Zitat von Jonas:

Also entweder mach ich was falsch oder ich bin einfach nur sau dumm. Wenn ich im ??? den Parent auf self setzte bekomm ich den Fehler: "*Steuerelement kann nicht sich selbst als Vorfahr haben*"

Toll, das wichtigste Wort hast du ausgelassen . Du versuchst aber hoffentlich nicht, im Konstruktor von TSticky den Parent von TSticky auf Self zu setzen?

[Jonas]

constructor -> das war das wort ^^

was isn wenn ich nu *doch* sag? ^^'

[xaromz]

Hallo,

versuch doch mal folgendes:

Delphi-Quellcode:

unit gsticky; 

interface 

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, ExtCtrls, StdCtrls, ComCtrls; 

type 
  Tsticky = class(TCustomControl) 
    constructor Create(AOwner: TComponent); override; 
    destructor Destroy; override; 
    procedure   Paint; override; 
  private 
    FirstDraw: boolean; 
    stickynote: TRichEdit; 
    procedure SetParent(AParent: TWinControl); override;   // <--------
  public 
  end; 

constructor Tsticky.Create(AOwner: TComponent); 
begin 
inherited Create(Aowner); 
imageresDLL := LoadLibrary(PChar('imageres.dll')); 
  stickynote := TRichEdit.Create(self); 
  stickynote.Parent := Self; 
end;

procedure Tsticky.SetParent(AParent: TWinControl);
begin
  inherited SetParent(AParent);

  if (AParent = nil) then
    Exit;

  stickynote.Enabled := true; 
  stickynote.Left := 60; 
  stickynote.Top := 10; 
  stickynote.Width := 80; 
  stickynote.Height := 45; 
  stickynote.Color := clLime; 
  stickynote.BorderStyle := BsNone;
end;

Damit setzt Du die Eigenschaften erst, wenn Deine Komponente TSticky wirklich ein Parent-Control hat.

Gruß
xaromz
// Edit: Fehler korrigiert