Fejl: "SyntaxEdit1 has no parent window."

hvordan ser din create procedure ud ?

du kan evt smide denne ind hvis du ikke allerede har den

lige efter inherited
Parent := (AOwner AS TWinControl);

et lille eksempel jeg lige fandt ..

constructor TMultiLineButton.Create(AOwner: TComponent);
begin
  inherited;
  Parent := (AOwner AS TWinControl);
  SetWindowLong(Handle, GWL_STYLE,
    GetWindowLong(Handle, GWL_STYLE) OR BS_MULTILINE);
  Parent := nil
end;

som går ud på det problem du har.

Jeg satte
Parent := (AOwner AS TWinControl);
ind lige efter inherited som du foreslog, hvilket fik Delphi til at crashe istedet for at komme med en fejl. Jeg nåede at se den dukke op på min Form oppe i venste hjørne, hvorefter Delphi gik i stå og jeg måtte ALT+CTRL+DEL mig ud af det :|
Jeg prøver lige det andet eksempel.

Den siger Undeclared identifier til SetWindowLong.
Min Create methode er helt tom bortset fra inherited. Jeg har også prøvet uden den, uden forskel.

kan jeg få noget kode at arbejde med så jeg kan prøve at løse problemet ?

Her er deklerationen af typerne:

  TSyntax = record
    SynWords: TStringlist;
    SynColor: TColor;
    SynStyle: TFontStyles;
    SynCaseSense: Boolean;
  end;

  TSyntaces = array of TSyntax;

  TSyntaxEdit = class(TRichEdit)
  private
    { Private declarations }

    FSyntaces : TSyntaces;
    FAllowUpdate: Boolean;
    FSyntaxFilename: string;

    function GetWordSyn(const Word: string): TSyntax;
    procedure Highlight(const Start, Len: Integer; Syn: TSyntax);
  protected
    { Protected declarations }
    procedure Loaded; override;   
    procedure Change; override;

    property AllowUpdate: Boolean read FAllowUpdate write FAllowUpdate;
  public
    { Public declarations }

    procedure Invalidate; override;
    constructor Create(AOwner: TComponent); override;
    procedure LoadSyntaxFile(const Filename: string);
    procedure SyntaxCheckAll;

  published
    { Published declarations }

    property SyntaxFilename: string read FSyntaxFilename write FSyntaxFilename;
  end;

Her er så nogle implementation bidder:

constructor TSyntaxEdit.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
end;

procedure TSyntaxEdit.Change;
begin
  inherited;
  SyntaxCheckAll;
end;

procedure TSyntaxEdit.Invalidate;
begin
  if AllowUpdate then
    Inherited;
end;

procedure TSyntaxEdit.LoadSyntaxFile(const Filename: string);
// Jeg springer lige et par lokale methods over her
var
  I: Integer;
  SyntaxList: TStringlist;
  CurrSyntax: TSyntax;
  SyntaxCreated: Boolean;
  Line: String;
begin
  if (SyntaxFilename <> '') and (FileExists(SyntaxFilename)) then
    begin
      SetLength(FSyntaces, 0);
      SyntaxList := TStringlist.Create;
      SyntaxList.LoadFromFile(SyntaxFilename);
      I := 0;
      SyntaxCreated := False;

      // Do with every line in the file
      while I < SyntaxList.Count do
      begin
        Line := SyntaxList.Strings[I];
        // if not comment
        if Line[1] <> ';' then
        begin
          // if new syntax
          if Line[1] = '@' then
            begin
              if SyntaxCreated then
                AddSyntax(CurrSyntax);
              CurrSyntax := NewSyntax;
              CurrSyntax.SynColor := StringToColor(SubStr(Line, 2, Length(Line)));
              SyntaxCreated := True;
            end
          else
            // Syntax word
            CurrSyntax.SynWords.Add(Line);
        end;
      end;

      if SyntaxCreated then
        AddSyntax(CurrSyntax);
      SyntaxList.Free;
    end;
end;

procedure TSyntaxEdit.Loaded;
begin
  Inherited Loaded;
  LoadSyntaxFile(SyntaxFilename);
end;

Hmm.. jeg indser pludselig at jeg har lavet en uendelig løkke LoadSyntaxFile. Jeg har rettet det nu men det ændrer ikke på mit problem :(

Hvis du single stepper igennem din komponent kode med debuggeren, hvilken linie er det så der giver fejlen?

Fejlen kommer så snart jeg prøver at sætte komponenten på formen! Jeg kan ikke engang starte programmet med den på. Hvis jeg trykker på SyntaxEdit og prøver at sætte den på min form i Delphi, kommer fejlen, og komponenten kommer ikke på min form
Jeg kan altså ikke engang komme til at bruge debuggeren.

Du kan debugge komponenten hvis du lader være med at putte den på formen, men i stedet laver en Create af den i FormCreate.

Jeg fandt fejlen, ved at udkommentere Loaded og Change hvorefter det virkede.
Fejlen gemte sig i Change
Den kørte åbenbart Change inden Loaded, så jeg måtte bare sørge for at den ikke kørte SyntaxCheckAll fra Change medmindre den var initialized.
Tak fordi du prøvede at hjælpe mig tolderlund, men jeg kan desværre ikke give dig point da du ikke besvarede mit spørgsmål.

Øv, jeg synes ellers jeg hjalp dig rigtig godt med at finde fejlen.