| Class TForm1 (unit Demo1) |
TForm
| Constructors |
| Functions |
procedure btnWideClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure EZoekChange(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure HTML1DoRequestDoc(Sender: TObject; const URL: WideString;
const Element: HTMLElement; const DocInput: DocInput;
var EnableDefault: WordBool);
procedure sbTableClick(Sender: TObject);
procedure spQueryClick(Sender: TObject);| Properties |
| Events |
| Variables |
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;| Constructors |
| Functions |
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
| Properties |
| Events |
| Variables |
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;