如何在指定区域创建按钮 我现在放了一个Panel按钮在窗体上.如何在这个panel上自动创建按钮啊..并且可以拖动按钮的位置... 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 放一个Panel在上面,为它写两个事件,还有一个可以动态生成BUTTON的按钮,代码如下:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;type TForm1 = class(TForm) Panel1: TPanel; Button1: TButton; procedure Panel1DragDrop(Sender, Source: TObject; X, Y: Integer); procedure Panel1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Panel1DragDrop(Sender, Source: TObject; X, Y: Integer);begin if (Source is TButton) then begin with Source as TButton do begin Left := X; Top := Y; end; end;end;procedure TForm1.Panel1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);begin if Source is TButton then Accept := True;end;procedure TForm1.Button1Click(Sender: TObject);begin with TButton.Create(Self) do begin Parent := Panel1; Top := Panel1.Top + 5; Left := Panel1.Left + 5; DragMode := dmAutomatic; Caption := 'Test'; end;end;end. ding-1楼!不过顺便跟楼主说一声,这些东西网上都有,上网一搜就可以看到控件拖拽的问题!多留意一下! 修改界面,散分 TCPclient的连接问题 大家帮我看看更新问题 如何自动加1 Delphi爱好者请加入我创的群8242923,共同讨论 @@@@@@@@@@@@@@@@@@@@@@@@@@@如何得到硬盘的图标并放在listview中?@@@@@@@@@@@@@@@@@@@@@@@@@@@ 捉拿 ‘小小’昨天晚上是否game的太晚了,现在还不来、 这样关闭程序为什么有问题? 一个让我困惑的问题求各位大侠帮忙!!!!!!!!!!!!!!!!!!!!! 看一下这段代码! 如何取得当前系统日期并和数据库比较? 如查获取cxgrid的footer值?
还有一个可以动态生成BUTTON的按钮,代码如下:
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;type
TForm1 = class(TForm)
Panel1: TPanel;
Button1: TButton;
procedure Panel1DragDrop(Sender, Source: TObject; X, Y: Integer);
procedure Panel1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Panel1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if (Source is TButton) then
begin
with Source as TButton do
begin
Left := X;
Top := Y;
end;
end;
end;procedure TForm1.Panel1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
if Source is TButton then Accept := True;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
with TButton.Create(Self) do
begin
Parent := Panel1;
Top := Panel1.Top + 5;
Left := Panel1.Left + 5;
DragMode := dmAutomatic;
Caption := 'Test';
end;
end;end.