Class TForm1 (unit Demo1) |
Inherits from
TForm
procedure btnWideClick(Sender: TObject);
Try to find something
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
Write HtmlTable
procedure EZoekChange(Sender: TObject);
Force HTML component to show file
procedure FormShow(Sender: TObject);
Write HtmlQuery
procedure HTML1DoRequestDoc(Sender: TObject; const URL: WideString;
const Element: HTMLElement; const DocInput: DocInput;
var EnableDefault: WordBool);
Preview HtmlQuery, this will active Netscape or IE (Microsoft
procedure sbTableClick(Sender: TObject);
Open Query on show
procedure spQueryClick(Sender: TObject);
Preview HtmlTable, this will active Netscape or IE (Microsoft
btnWide : TButton;
Button1 : TButton;
Button2 : TButton;
DataSource1 : TDataSource;
DataSource2 : TDataSource;
DBGrid1 : TDBGrid;
DBGrid2 : TDBGrid;
EZoek : TEdit;
HQ : THtmTextQuery;
HT : THtmTextTable;
HTML1 : THTML;
Label1 : TLabel;
Label2 : TLabel;
Panel1 : TPanel;
sbTable : TSpeedButton;
spQuery : TSpeedButton;
procedure btnWideClick(Sender: TObject);
Try to find something
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
Write HtmlTable
procedure EZoekChange(Sender: TObject);
Force HTML component to show file
procedure FormShow(Sender: TObject);
Write HtmlQuery
procedure HTML1DoRequestDoc(Sender: TObject; const URL: WideString;
const Element: HTMLElement; const DocInput: DocInput;
var EnableDefault: WordBool);
Preview HtmlQuery, this will active Netscape or IE (Microsoft
procedure sbTableClick(Sender: TObject);
Open Query on show
procedure spQueryClick(Sender: TObject);
Preview HtmlTable, this will active Netscape or IE (Microsoft
btnWide : TButton;
Button1 : TButton;
Button2 : TButton;
DataSource1 : TDataSource;
DataSource2 : TDataSource;
DBGrid1 : TDBGrid;
DBGrid2 : TDBGrid;
EZoek : TEdit;
HQ : THtmTextQuery;
HT : THtmTextTable;
HTML1 : THTML;
Label1 : TLabel;
Label2 : TLabel;
Panel1 : TPanel;
sbTable : TSpeedButton;
spQuery : TSpeedButton;