delphi Sender和Tag的用法


var
  Form1:

TForm1;
  SelectedColor:TColor;//clBlack;

//Default
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender:

TObject);
begin
   SelectedColor:=clBlack; //Default
end;
//将这些控件全部选中然后使用双击

OnClick事件
//OnClick获得返回值
procedure TForm1.img11Click(Sender:

TObject);
begin
  if TImage(Sender)=img1  then  SelectedColor:=clBlack;
  if TImage(Sender)=img2  then  SelectedColor:=$00002AA5;
  if TImage(Sender)=img3  then  SelectedColor:=$00404000;
  if TImage(Sender)=img4  then  SelectedColor:=$00005500;
  if TImage(Sender)=img5  then  SelectedColor:=$005E0000;
  if TImage(Sender)=img6  then  SelectedColor:=clNavy;
  if TImage(Sender)=img7  then  SelectedColor:=$00993333;
  if TImage(Sender)=img8  then  SelectedColor:=$00282828;
  if TImage(Sender)=img9  then  SelectedColor:=$0000008B;
  if TImage(Sender)=img10

then  SelectedColor:=$002068FF;
  if TImage(Sender)=img11

then  SelectedColor:=$00008B8B;
  if TImage(Sender)=img12

then  SelectedColor:=$00009300;
  if TImage(Sender)=img13

then  SelectedColor:=$008E8E38;
  if TImage(Sender)=img14

then  SelectedColor:=clBlue;
  if TImage(Sender)=img15

then  SelectedColor:=$00996666;
  if TImage(Sender)=img16

then  SelectedColor:=$00666666;
  if TImage(Sender)=img17

then  SelectedColor:=clRed;
  if TImage(Sender)=img18

then  SelectedColor:=$005BADFF;
  if TImage(Sender)=img19

then  SelectedColor:=$0032CD32;
  if TImage(Sender)=img20

then  SelectedColor:=$0071B33C;
  if TImage(Sender)=img21

then  SelectedColor:=$00D4FF7F;
  if TImage(Sender)=img22

then  SelectedColor:=$00FF6633;
  if TImage(Sender)=img23

then  SelectedColor:=clPurple;
  if TImage(Sender)=img24

then  SelectedColor:=$007F7F7F;
  if TImage(Sender)=img25

then  SelectedColor:=clFuchsia;
  if TImage(Sender)=img26

then  SelectedColor:=$0000D7FF;
  if TImage(Sender)=img27

then  SelectedColor:=clYellow;
  if TImage(Sender)=img28

then  SelectedColor:=clLime;
  if TImage(Sender)=img29

then  SelectedColor:=$00D0E040;
  if TImage(Sender)=img30

then  SelectedColor:=$00FFFFC0;
  if TImage(Sender)=img31

then  SelectedColor:=$00663399;
  if TImage(Sender)=img32

then  SelectedColor:=clSilver;
  if TImage(Sender)=img33

then  SelectedColor:=$00CC99FF;
  if TImage(Sender)=img34

then  SelectedColor:=$008CB4D2;
  if TImage(Sender)=img35

then  SelectedColor:=$0099FFFF;
  if TImage(Sender)=img36

then  SelectedColor:=$0098FB98;
  if TImage(Sender)=img37

then  SelectedColor:=$00EEEEAF;
  if TImage(Sender)=img38

then  SelectedColor:=$00FFCC00;
  if TImage(Sender)=img39

then  SelectedColor:=$00FF99CC;
  if TImage(Sender)=img40

then  SelectedColor:=clWhite;
//Test
  Label1.Color:=SelectedColor;
end;
//OnMouseMove

样式改变
//先手动设置一下
procedure TForm1.img11MouseMove(Sender: TObject;

Shift: TShiftState; X,
  Y: Integer);
begin
  img_frame.Visible:=True;
img_frame.Visible:=True;
  case TImage(Sender).Tag of
  1:
    begin
      img_frame.Left:=

img1.Left;
      img_frame.Top := img1.Top;
    end;
  2:
    begin
      img_frame.Left:=

img2.Left;
      img_frame.Top := img2.Top;
    end;
  3:
    begin
      img_frame.Left:=

img3.Left;
      img_frame.Top := img3.Top;
    end;
  4:
    begin
      img_frame.Left:=

img4.Left;
      img_frame.Top := img4.Top;
    end;
  5:
    begin
      img_frame.Left:=

img5.Left;
      img_frame.Top := img5.Top;
    end;
  6:
    begin
      img_frame.Left:=

img6.Left;
      img_frame.Top := img6.Top;
    end;
  7:
    begin
      img_frame.Left:=

img7.Left;
      img_frame.Top := img7.Top;
    end;
  8:
    begin
      img_frame.Left:=

img8.Left;
      img_frame.Top := img8.Top;
    end;
  9:
    begin
      img_frame.Left:=

img9.Left;
      img_frame.Top := img9.Top;
    end;
  10:
    begin
      img_frame.Left:=

img10.Left;
      img_frame.Top := img10.Top;
    end;
  11:
    begin
      img_frame.Left:=

img11.Left;
      img_frame.Top := img11.Top;
    end;
  12:
    begin
      img_frame.Left:=

img12.Left;
      img_frame.Top := img12.Top;
    end;
  13:
    begin
      img_frame.Left:=

img13.Left;
      img_frame.Top := img13.Top;
    end;
  14:
    begin
      img_frame.Left:=

img14.Left;
      img_frame.Top := img14.Top;
    end;
  15:
    begin
      img_frame.Left:=

img15.Left;
      img_frame.Top := img15.Top;
    end;
  16:
    begin
      img_frame.Left:=

img16.Left;
      img_frame.Top := img16.Top;
    end;
  17:
    begin
      img_frame.Left:=

img17.Left;
      img_frame.Top := img17.Top;
    end;
  18:
    begin
      img_frame.Left:=

img18.Left;
      img_frame.Top := img18.Top;
    end;
  19:
    begin
      img_frame.Left:=

img19.Left;
      img_frame.Top := img19.Top;
    end;
  20:
    begin
      img_frame.Left:=

img20.Left;
      img_frame.Top := img20.Top;
    end;
  21:
    begin
      img_frame.Left:=

img21.Left;
      img_frame.Top := img21.Top;
    end;
  22:
    begin
      img_frame.Left:=

img22.Left;
      img_frame.Top := img22.Top;
    end;
  23:
    begin
      img_frame.Left:=

img23.Left;
      img_frame.Top := img23.Top;
    end;
  24:
    begin
      img_frame.Left:=

img24.Left;
      img_frame.Top := img24.Top;
    end;
  25:
    begin
      img_frame.Left:=

img25.Left;
      img_frame.Top := img25.Top;
    end;
  26:
    begin
      img_frame.Left:=

img26.Left;
      img_frame.Top := img26.Top;
    end;
  27:
    begin
      img_frame.Left:=

img27.Left;
      img_frame.Top := img27.Top;
    end;
  28:
    begin
      img_frame.Left:=

img28.Left;
      img_frame.Top := img28.Top;
    end;
  29:
    begin
      img_frame.Left:=

img29.Left;
      img_frame.Top := img29.Top;
    end;
  30:
    begin
      img_frame.Left:=

img30.Left;
      img_frame.Top := img30.Top;
    end;
  31:
    begin
      img_frame.Left:=

img31.Left;
      img_frame.Top := img31.Top;
    end;
  32:
    begin
      img_frame.Left:=

img32.Left;
      img_frame.Top := img32.Top;
    end;
  33:
    begin
      img_frame.Left:=

img33.Left;
      img_frame.Top := img33.Top;
    end;
  34:
    begin
      img_frame.Left:=

img34.Left;
      img_frame.Top := img34.Top;
    end;
  35:
    begin
      img_frame.Left:=

img35.Left;
      img_frame.Top := img35.Top;
    end;
  36:
    begin
      img_frame.Left:=

img36.Left;
      img_frame.Top := img36.Top;
    end;
  37:
    begin
      img_frame.Left:=

img37.Left;
      img_frame.Top := img37.Top;
    end;
  38:
    begin
      img_frame.Left:=

img38.Left;
      img_frame.Top := img38.Top;
    end;
  39:
    begin
      img_frame.Left:=

img39.Left;
      img_frame.Top := img39.Top;
    end;
  40:
    begin
      img_frame.Left:=

img40.Left;
      img_frame.Top := img40.Top;
    end;
  end;
end;

来自为知笔记(Wiz)

时间： 2024-11-03 15:51:13

delphi Sender和Tag的用法的相关文章

delphi Sender和Tag的用法1

Sender和Tag的用法在它们共同的OnClick事件下返回单击的那个按钮的标题 unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type TForm1 = class(TForm)

Delphi中的TChart使用用法

1.TChart Hello world 放一个控件到窗体上,然后写代码加入一个折线数据序列: var Series: TLineSeries; begin Series := TLineSeries.Create(Chart1); Series.Add(100, '头部', clRed); Series.Add(200, '颈部', clGreen); Chart1.AddSeries(Series); end; 这样就会生成一个简单的折线图表,要生成其它类型的数据图表,可以添加不同的数据序列

模板参数tag的用法

//通过结构体/类的类型来作为模板参数的tag, //用来区分tag之间的区别. //made by davidsu33 //例如对于某个全局的静态变量,你如果希望有 //很多份,但是其实现又是一样的,你可以考虑 //以模板的形式,通过类tag来区分 //而且还可以根据实际需要来特化模板 #include "stdafx.h" #include <iostream> #include <cassert> using namespace std; template

Delphi中 StrToIntDef函数的用法

Delphi中 StrToIntDef函数的用法: 比如我要判断一个文本框里输入的字符串能不能转换为integer类型,如果能,则返回转换后的整型数据,如果不能,则返回整数0,那么我就可以用strtointdef这个函数. 写法如下: 假设edit1.text:='1000'; 则strtointdef(edit1.text,0)返回值为1000. 如果edit1.text:='fdafds',则返回值为0. (如果你用strtoint(edit1.text)当edit1.text:='fdad

UIView-(frame,center,bounds,tag,transform)用法

frame: 表示控件的位置和尺寸(以父控件的左上角为坐标原点(0,0)) 可以调整控件的大小和位置不能直接给frame的属性进行赋值_btn.frame.origin.y -=50是错误的,正确的做法应该如下图. 1 CGRect frame = _btn.frame; 2 frame.origin.y -= 50; 3 _btn.frame = frame; center: 表示控件的中点(以父控件的左上角为坐标原点) 可以改变控件的位置不能直接给frame的属性进行赋值_btn.cen

django中tag的用法

新建一个tags.py from django import templateregister = template.Library() def short_msg(value): if len(value) > 50: return value[:50]+" ......" else: return value register.filter('short_msg', short_msg) 在html页面中 {% extends "base.html" %}

Git 系列之tag的用法---为你的代码标记版本号

版权声明:本文为博主原创文章,未经博主允许不得转载. 目录(?)[-] 本地仓库操作远程仓库操作其他 tag 操作在做app开发的时候经常有版本的概念,比如v1.0.v1.1之类的,不同的版本肯定对应不同的代码,所以我一般要给我们的代码加上标签,这样假设v1.1版本出了一个新bug,但是又不晓得v1.0是不是有这个bug,有了标签就可以顺利切换到v1.0的代码,重新打个包测试了. 本地仓库操作: 1:打 tag 标签 Git tag -a v1.0 -m "commit version 1

SVN trunk(主线) branch(分支) tag(标记) 用法详解和详细操作步骤

使用场景: 假如你的项目(这里指的是手机客户端项目)的某个版本(例如1.0版本)已经完成开发.测试并已经上线了,接下来接到新的需求,新需求的开发需要修改多个文件中的代码,当需求已经开始开发一段时间的时候,突然接到用户或测试人员的反馈,项目中有个重大bug需要紧急修复,并且要求bug修复后要立即上线:此时应该怎么修复bug呢?是在当前已经开发新需求的基础上进行修复吗?答案是否定的,原因是:如果是在已经开发新需求的基础上进行修复bug,那么新需求还没开发好,更没有测试,怎么立刻(或最可能快的)上线?

delphi中setTimer函数的用法

delphisetTimer函数用来做定时器,可以实现每隔一段时间运行某个程序,需要用到两个函数,SetTimer函数和KillTimer函数.下面是一个简单的例子:vari :Integer = 0; procedure TimerProc(hwnd:HWND;uMsg,idEvent:UINT;dwTime:DWORD); stdcall;begininc(i);Form1.Caption := IntToStr(i);end; procedure TForm1.FormCreate(Sen