delphi;gutter:true;
unit Unit1;</p>
<p>interface</p>
<p>uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls;</p>
<p>type
TForm1 = class(TForm)
Button1: TButton;
PopupMenu1: TPopupMenu;
fgh1: TMenuItem;
drg1: TMenuItem;
dg1: TMenuItem;
procedure Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;</p>
<p>var
Form1: TForm1;</p>
<p>implementation</p>
<p>{$R *.dfm}</p>
<p>procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
pt:TPoint;
begin
GetCursorPos(pt);
PopupMenu1.Popup((pt.x-x),(pt.y+(Button1.Height-y)));</p>
<p>end;</p>
<p>end.</p>
<p>
简单的一种下拉列表
Original: https://www.cnblogs.com/zhangzhifeng/p/9935245.html
Author: ╰★张志峰★╮
Title: delphi button 实现下拉列表
原创文章受到原创版权保护。转载请注明出处:https://www.johngo689.com/548956/
转载文章受原作者版权保护。转载请注明原作者出处!