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;