Buscar por:

Delphi 8 - como chamar uma página em uma nova janela

Código

Neste simples exemplo demonstramos como chamar uma página, porém, abrindo em uma nova janela do browser, lembrando que aqui estamos nos referindo a um Asp.Net Application.

Uses

Borland.Vcl.SysUtils;

procedure TWebForm1.Page_Load(

sender: System.Object; e: System.EventArgs);

var

URL, Opt: String;

begin

if not IsPostBack then

begin

URL := QuotedStr(‘http://www.theclub.com.br’);

Opt := QuotedStr(‘_new’);

btnTheClub.Attributes.Add(

‘onClick’, ‘window.open(‘+URL+’,’+Opt+’)’);

end; 

end;

Para chamar uma página sem abrir uma nova janela, utilize o seguinte:

Response.Redirect(‘index.aspx’);