''mainmenu de popupmenu açma'' yardım lütfen

[mrtcans]

Delphi'de web browser tasarladım. Fakat oluşturduğum 'Sık Kullanılanlar' menüsünde popupmenu açamıyorum. Amacım,
'Sık Kullanılanlar' menüsündeki adresleri popupmenu aracılığı ile silebilmek.
Mainmenu de popupmenu açma yolunu, aşağıda belirttiğim kodlar üzerinde gösterebilirseniz çok sevinirim. Teşekkürler.

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.

[Shou]

kardeş sen proje olarak yuklersen bakabilirim..

[mrtcans]

Proje bu, mainmenu de popupmenu açma konusunda yardımcı olabileceklerin dikkatine

[Shou]

kendi bilgisayarıma geçtigimde bakar konuya yanıtlarım benden başkası bakarsa şimdiden tşkler..

[mrtcans]

bende şimdiden ilgilenen herkese teşekkür ederim.

[sadettinpolat]

konu kilitlenmistir...

Ayni soru icin birden fazla baslik acilmis.
http://delphiturkiye.com/forum/viewtopi ... =2&t=29613

sorunun cevabi da ilgili baslikta belirtilmis zaten.