mirror of
https://bitbucket.org/grumdrig/pq.git
synced 2026-09-29 00:33:59 -06:00
Eric Fredricksen
d3bba84017
svn, so that changes will be trackable thataway. As checked in, right here, this is PQ 6.0
32 lines
451 B
ObjectPascal
32 lines
451 B
ObjectPascal
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.
|