summaryrefslogtreecommitdiff
path: root/orig/pq/Info.pas
diff options
context:
space:
mode:
Diffstat (limited to 'orig/pq/Info.pas')
-rw-r--r--orig/pq/Info.pas31
1 files changed, 31 insertions, 0 deletions
diff --git a/orig/pq/Info.pas b/orig/pq/Info.pas
new file mode 100644
index 0000000..d9d606d
--- /dev/null
+++ b/orig/pq/Info.pas
@@ -0,0 +1,31 @@
+unit Info;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, OleCtrls, SHDocVw;
+
+type
+ TForm4 = class(TForm)
+ WebBrowser1: TWebBrowser;
+ private
+ { Private declarations }
+ public
+ procedure Go(url: String);
+ end;
+
+var
+ Form4: TForm4;
+
+implementation
+
+{$R *.dfm}
+
+procedure TForm4.Go(url: String);
+begin
+ WebBrowser1.Navigate(url);
+ Show;
+end;
+
+end.