社区
Delphi
帖子详情
请问一下,怎么得到当前点击的控件的Tag值呀?
TangDY
2003-08-23 05:38:37
高手:
小弟想请教一下怎么用程序动态得到我当前点击的控件的Tag值呀?
请高手给出实例,小弟高分相送~
...全文
46
7
打赏
收藏
请问一下,怎么得到当前点击的控件的Tag值呀?
高手: 小弟想请教一下怎么用程序动态得到我当前点击的控件的Tag值呀? 请高手给出实例,小弟高分相送~
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
7 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
cnhgj
2003-08-24
打赏
举报
回复
showmessage(inttostr(TComponent(form1.ActiveControl).tag));
knock
2003-08-24
打赏
举报
回复
写一个通用过程,只要把它塞给相应的控件事件处理就可以用了::
procedure ControlTag(Sender: TObject);
begin
if Sender is TWinControl then
ShowMessage(IntToStr((Sender as TWinControl).Tag));
end;
madyak
2003-08-23
打赏
举报
回复
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
private
procedure MouseTagAppMessage(var Msg: TMsg; var Handled: Boolean);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.MouseTagAppMessage(var Msg: TMsg; var Handled: Boolean);
begin
if Msg.message = WM_LBUTTONDOWN then
Label1.Caption := IntToStr(FindVCLWindow(Mouse.CursorPos).Tag);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := MouseTagAppMessage;
Button1.Tag := 3;
Edit1.Tag := 1;
Edit2.Tag := 2;
Label1.Tag := 4;
end;
end.
能处理TWinControl的后代!
madyak
2003-08-23
打赏
举报
回复
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
procedure MouseTagAppMessage(var Msg: TMsg; var Handled: Boolean);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.MouseTagAppMessage(var Msg: TMsg; var Handled: Boolean);
begin
if Msg.message = WM_LBUTTONDOWN then
Label1.Caption:=IntToStr(FindVCLWindow(Mouse.CursorPos).Tag);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := MouseTagAppMessage;
Button1.Tag := 3;
Edit1.Tag := 1;
Edit2.Tag := 2 ;
Label1.Tag:=4;
end;
procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
end;
end.
能处理TWinControl的后代!
zhoutian618
2003-08-23
打赏
举报
回复
if Activecontrol<>nil then
ShowMessage(IntToStr(ActiveControl.Tag)):
leonkim
2003-08-23
打赏
举报
回复
procedure TForm1.Button1Click(Sender: TObject);
begin
if Sender is TWinControl then
ShowMessage(IntToStr((Sender as TWinControl).Tag));
end;
DWGZ
2003-08-23
打赏
举报
回复
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr((Sender as TButton).Tag));
end;
WinForm 利用
Tag
快速获取已赋
值
控件
的条件
this.txt_username.
Tag
= "username"; // // label2 // this.label2.AutoSize = true; this.label2.Location = new System.Drawing.Point(211, 14); this.label2.Name = "label2"; this.label2.Size = new System....
android listview 复用
点击
事件,Android ListView 子
控件
onClick正确获取position的方法
在实际开发中,我们有时候不仅需要响应ListView的onItemClick,还需要响应其...原因就是position的
值
出现了重复或不准确,解决这个问题的方法是,在adapter每次加载数据的时候,为需要
点击
的
控件
设置一个
tag
值
,这个...
matlab axes
控件
,PushButton
控件
,Axes
控件
,Text
控件
以及imshow和image函数
--PushButton
控件
--PushButton
控件
是按钮的意思,它就相当于键盘上的每个键一样,按
一下
输入一个信号,在GUI中就是按
一下
执行该
控件
的回调函数。...Enable:该
控件
能否被
点击
,它有三个
值
分别是'on';'off';'inac...
Android--listView中的button
控件
获取item的
值
在listview中的listitem设置事件响应,如果listitem中有button
控件
,这时候listitem就不会捕获到
点击
事件,而默认的是listitem中的button会捕获
点击
事件,这方面的介绍网上很多,我想大家应该很熟悉了,之前做项目...
Android ListView 获取Item的
值
和
得到
每一个Item的view对象以及
得到
他们所对应的
控件
值
//通过get
Tag
,取出上面绑定的holder,以免多次绑定,造成资源浪费 } //设置
控件
的数据,可以理解为从封装的数据中取出一个一个对应的
值
CostBean costBean = costBeanList.get(position); holder.imageView....
Delphi
5,391
社区成员
262,736
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章