5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

くだすれDelphi(超初心者用)その37

888 :デフォルトの名無しさん:2007/01/19(金) 17:31:01
>>887
やっぱりできません(汗 最小構成で試しに組んでみたんですがダメでした↓

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,ShellAPI, Menus;
type
TForm1 = class(TForm)
PopupMenu1: TPopupMenu;
test1: TMenuItem;
private
procedure WMNCRButtonDown(var Msg: TWMNCHitMessage); message WM_NCRButtonDown;
{ Private 宣言 }
public
{ Public 宣言 }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WMNCRButtonDown(var Msg: TWMNCHitMessage);
begin
PopupMenu1.Popup(Msg.XCursor, Msg.YCursor)
end;
end.


266 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)