mainmenu hakkında

[mrtcans]

Arkadaşlar ben delphide bir web browser yaptım fakat bir kaç sorunum var

1.sorum : Mainmanu nesnesi ile forma ''sık kullanılanlar'' özelliği kattım.
''Sık kullanılanlar'' üzerinde popup menu açılmasını istiyorum(sık kullanılanlardaki adresleri silebilmek için)
fakat mainmenu nesnesinde bu özellik yok.

2.sorum : oluşturduğum mainmenu nün controlbar nesnesi üzerinde gözükmesini istiyorum.

bu iki soruma yanıt verebilirseniz çok sevinirim. şimdiden teşekkürler...

[mkysoft]

bildiğim kadarıyla menu üzerinde popup açtırılamıyor. Siz sağ tıklamayı yakalayıp manuel olarak farenin kordinatlarında popup menüyü açtırabilirsiniz. Büyük ihtimalle popup menüyü açtırdığınızda main menü kapanacaktır, denemeniz lazım. controlbar nesnesini daha önce hiç kullanmadım, o nedenle yardımcı olamıyorum.

[sadettinpolat]

1.sorum : Mainmanu nesnesi ile forma ''sık kullanılanlar'' özelliği kattım.
''Sık kullanılanlar'' üzerinde popup menu açılmasını istiyorum(sık kullanılanlardaki adresleri silebilmek için)
fakat mainmenu nesnesinde bu özellik yok.

http://stackoverflow.com/questions/3788 ... ight-click

[mrtcans]

Arkadaşlar 2. sorumun çözümünü buldum.
1. sorumun cevabını, yazdığım kodlar üzerinde gösterebiliseniz çok sevinirim. (henüz delphide amatör sayılırım o yüzden)

unit int;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw, StdCtrls, Buttons, ComCtrls, ToolWin, ImgList,
ExtCtrls, Menus, DB, DBTables;

type
TForm1 = class(TForm)
wb: TWebBrowser;
ControlBar1: TControlBar;
Panel1: TPanel;
SpeedButton7: TSpeedButton;
SpeedButton8: TSpeedButton;
SpeedButton9: TSpeedButton;
SpeedButton10: TSpeedButton;
Panel2: TPanel;
SpeedButton11: TSpeedButton;
cb: TComboBox;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
mm: TMainMenu;
Dosya1: TMenuItem;
N1: TMenuItem;
Grnm1: TMenuItem;
Aralar1: TMenuItem;
skk: TMenuItem;
Program1: TMenuItem;
Hakknda1: TMenuItem;
k1: TMenuItem;
Panel3: TPanel;
Label1: TLabel;
pb: TProgressBar;
Ekle1: TMenuItem;
ds: TDataSource;
tb: TTable;
tbAdres: TStringField;
N2: TMenuItem;
pm: TPopupMenu;
sil1: TMenuItem;
Image1: TImage;
Label3: TLabel;
Label2: TLabel;
Label4: TLabel;
Kes1: TMenuItem;
Kopyala1: TMenuItem;
Yaptr1: TMenuItem;
mnSe1: TMenuItem;
tbar: TToolBar;
A1: TMenuItem;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure SpeedButton10Click(Sender: TObject);
procedure SpeedButton11Click(Sender: TObject);
procedure SpeedButton12Click(Sender: TObject);
procedure SpeedButton8Click(Sender: TObject);
procedure SpeedButton9Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure cbKeyPress(Sender: TObject; var Key: Char);
procedure k1Click(Sender: TObject);
procedure wbProgressChange(Sender: TObject; Progress,
ProgressMax: Integer);
procedure Ekle1Click(Sender: TObject);
Procedure myclick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
item: TMenuItem;
implementation

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
wb.Navigate(cb.Text);
end;

procedure TForm1.cbKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then wb.Navigate(cb.Text);
end;

procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
wb.GoHome;
end;

procedure TForm1.SpeedButton10Click(Sender: TObject);
begin
wb.GoForward;
end;

procedure TForm1.SpeedButton11Click(Sender: TObject);
begin
wb.GoBack;
end;

procedure TForm1.SpeedButton12Click(Sender: TObject);
begin
wb.GoSearch;
end;

procedure TForm1.SpeedButton8Click(Sender: TObject);
begin
wb.Stop;
end;

procedure TForm1.SpeedButton9Click(Sender: TObject);
begin
wb.Refresh;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
form1.close;
end;

procedure TForm1.k1Click(Sender: TObject);
begin
Form1.close;
end;

procedure TForm1.wbProgressChange(Sender: TObject; Progress,
ProgressMax: Integer);
begin
cb.Text:=wb.LocationURL;
pb.visible:=true;
label1.caption:='Açılan Sayfa:'+wb.LocationURL;
pb.Max:=progressmax;
pb.Position:=progress;
if progress=0 then
begin
pb.Visible:=false;
label1.caption:='Hazır';
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
wb.Navigate(cb.Text);
while not tb.Eof do
begin
item:=TMenuItem.Create(nil);
item.caption:=tbadres.Text;
skk.add(item);
tb.Next;
item.OnClick:=myclick;
end;
end;

procedure TForm1.Ekle1Click(Sender: TObject);
begin
tb.Insert;
tbAdres.asstring:=wb.LocationURL;
tb.post;
item := TMenuItem.Create(nil);
item.caption:=wb.LocationURL;
skk.add(item);
item.OnClick:=myclick;
end;

procedure TForm1.myclick(Sender: TObject);
var
ar:ansistring;
begin
if Sender is TMenuItem then ar:=tmenuitem(sender).caption;
ar:=StringReplace(ar, '&', '', [rfReplaceAll]);
wb.Navigate(ar);
// [rfReplaceAll] büyük küçük harf durlılığı var
// [rfIgnoreCase] büyük küçük harf durlılığı yok
end;

end.