VCL – Load HTML code in TWebBrowser

per Simona Marotto
in Articoli, Delphi
on Ottobre 23, 2019

Easy HTML editor with instant preview into TWebBrowser

Component to use:

– TSynedit
– TSynHTMLSyn
– TWebBrowser
– TTimer (set Interval 1000)
– TSplitter (set Align alLeft)

Here the code:

procedure TForm1.SynEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Doc: Variant;
begin
  Timer1.Enabled := False;

  if not Assigned(WebBrowser1.Document) then
    WebBrowser1.Navigate('about:blank');

  Doc := WebBrowser1.Document;
  Doc.Clear;
  Doc.Write(SynEdit1.Lines.Text);
  Doc.Close;
end;

procedure TForm1.SynEdit1KeyPress(Sender: TObject; var Key: Char);

begin

Timer1.Enabled := True;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

var

Doc: Variant;

begin

Timer1.Enabled := False;

if not Assigned(WebBrowser1.Document) then

WebBrowser1.Navigate('about:blank');

Doc := WebBrowser1.Document;

Doc.Clear;

Doc.Write(SynEdit1.Lines.Text);

Doc.Close;

end;

Categorie

Articoli (530)
- databases (44)
  - Firebird SQL (24)
  - oracle (14)
- Hardware (16)
  - Iot Embedded (3)
- hosting (16)
- Programmazione (160)
  - Android (20)
  - Apple iOS (5)
  - c (4)
  - C++ (2)
  - Delphi (107)
    - Thread Execution (1)
  - Delphi .Net (8)
  - DotNet (6)
  - FP – Lazarus (3)
  - JAVA (9)
  - Javascript (4)
    - jQuery (1)
  - Pascal (31)
  - pHp (8)
  - PLC (1)
  - Zkoss (1)
- Sistemi Operativi (40)
- Software (31)
- Xtumble (17)
  - XumbleTools (6)
Eventi (1)
Sistemi (34)
- Firewall (5)
- KVM (7)

VCL – Load HTML code in TWebBrowser

VCL – Load HTML code in TWebBrowser

Ricerca Articolo

Categorie

Synaptica srl