В форме есть компонент WebBrowser в браузере страница index.html
<html>
<body>
<a href="external.test()">Вызовы тестовой процедуры</a>
</body>
</html>
нужно что бы при нажатии на ссылку в браузере, сработал procedure test
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw, MSHTML, StdCtrls, Buttons;
type
TForm1 = class(TForm)
internet: TWebBrowser;
BitBtn1: TBitBtn;
procedure FormCreate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
internet.Navigate('file://' + GetCurrentDir + '/html/index.html');
end;
procedure test;
begin
ShowMessage('123');
end;
end.
