


Bu konularda yardımcı olacaklara şimdiden teşekkürler.
Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
var
URL: WideString;
Flags: OleVariant;
TargetFrameName: OleVariant;
begin
Flags := 12;
TargetFrameName := null;
URL := 'www.delphiturkiye.com';
WebBrowser1.Navigate (URL, Flags);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
// Kaydet butonu
// hepsi helpde var
// OLECMDID_SAVEAS bunu değiştirip yazdırma vb.. gibi işlemler yapılabilirmiş.
// OLECMDEXECOPT_PROMPTUSER bunu değiştirerek mesaj kutusunu kaldırabilirmişsin.
webbrowser1.ExecWB(OLECMDID_SAVEAS,OLECMDEXECOPT_PROMPTUSER);
end;