{"provider_url":"https://hatena.blog","author_name":"AE85","version":"1.0","image_url":null,"title":"PopupMenu\u4e0a\u3067\u306e\u53f3\u30af\u30ea\u30c3\u30af\u53d6\u5f97","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fae85.hatenablog.com%2Fentry%2F20100217%2Fp1\" title=\"PopupMenu\u4e0a\u3067\u306e\u53f3\u30af\u30ea\u30c3\u30af\u53d6\u5f97 - \u30ac\u30e9\u30af\u30bf\u5c0f\u5c4b\u7ba1\u7406\u4eba\u5099\u5fd8\u9332\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","blog_title":"\u30ac\u30e9\u30af\u30bf\u5c0f\u5c4b\u7ba1\u7406\u4eba\u5099\u5fd8\u9332","categories":["DELPHI"],"author_url":"https://blog.hatena.ne.jp/AE85/","url":"https://ae85.hatenablog.com/entry/20100217/p1","published":"2010-02-17 00:00:00","width":"100%","provider_name":"Hatena Blog","type":"rich","description":"unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus, uSub; type TForm1 = class(TForm) Button1: TButton; popDir: TPopupMenu; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormCloseQu\u2026","blog_url":"https://ae85.hatenablog.com/","height":"190"}