Zugruffs fehler in einer zur Laufzeit erstellten komponente

[marabu]

Hallo Flo,

da hast du wohl irgendwann von TWebBrowser auf TSynEdit umgestellt und mittendrin aufgehört - oder?

Delphi-Quellcode:

function THTML.CreateTab(pc: TPageControl, sURL, sCaption: string): TTabSheet;
var
  se: TSynEdit;
begin
  // Create a new TabSheet
  Result := TTabSheet.Create(self);
  try
    // Assign TTabSheet Properties
    with Result do begin
      PageControl := pc;
      Parent := pc;
      Caption := sCaption;
      PageIndex := Succ(pc.ActivePageIndex);
    end;

    // Create an instance
    se := TSynEdit.Create(ts);
    with se do begin
      // put TSynEdit on TTabSheet
      Parent := Result;

      // Properties
      Align := alClient;
      Highlighter := htmledit.Highlighter;
      Visible := True;
    end;

    pc.ActivePage := Result;
  except
    Result.Free;
  end;
end;

Delphi-Quellcode:

function THTML.GetCurrentEdit: TSynEdit;
begin
  Result := nil;
  with PageControl3.ActivePage do
    if ControlCount = 0 then 
      Result := nil
    else if Controls[0] is TSynEdit then
      Result := TSynEdit(Controls[0])
    else
      Result := HTMLCodeEditor;
end;

Und hier denke ich interessiert dich der Editor nach erfolgtem Change:

Delphi-Quellcode:

procedure THTML.PageControl3Change(Sender: TObject);
begin
  // Get the Previous (Current) SynEdit
  with PageControl3.ActivePage do
    if ControlCount > 0 then
      if Controls[0] is TSynEdit then
        HTMLCodeEditor := TSynEdit(Controls[0]);
end;

Grüße vom marabu

[edit=alcaeus]Wieder code- durch delphi-Tags ersetzt. Mfg, alcaeus[/edit]