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]