ポップアップでEditに文字を書く込むには (ID:30255)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

ぬこ様  レス有り難うございます

私欲を出しまして、最終的に下記の様な事がにしたいのですが、
まず未定義の識別子:'Self'で怒られました。
他にも間違えが有るかと思いますが
ご指導のほどお願いいたします。

//http://www.moonlight.gr.jp/~el/delphi/news/00000010.html
//TMenuItemをCreateしてPopupMenuにAddします。

procedure PopupItem_Add(Sender: TObject);
var
   newMenuItem: TMenuItem;
begin
   newMenuItem := TMenuItem.Create(Self); //メニュー項目作成
   newMenuItem.Caption := 'New';          //Caption設定
   newMenuItem.OnClick := MenuItem1Click; //OnClickイベントを関連づけ
   PopupMenu1.Items.Add(NewMenuItem);     //PopupMenu1に追加
end;

procedure TForm1.MenuItem1Click(Sender: TObject);
begin
  Form1.LabeledEdit4.Text := PopupMenu1.newMenuItem.Caption;
end;

(*
procedure TForm1.hhhh1Click(Sender: TObject);
begin
   Form1.LabeledEdit4.Text := PopupMenu1.Items.Caption;
end;
*)

procedure TForm1.LabeledEdit4MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
PopupItem_Add   //とりあえずここでAdd

PopupMenu1.Popup(LabeledEdit4.ClientOrigin.X+70,
                 LabeledEdit4.ClientOrigin.Y + LabeledEdit4.Height);
end;

←解決時は質問者本人がここをチェックしてください。

戻る