开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
SendForm.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

SendForm.pas：源码内容
  1. unit SendForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, Buttons;
  9. type
  10.   TSenderForm = class(TForm)
  11.     Button1: TButton;
  12.     Memo1: TMemo;
  13.     BitBtn1: TBitBtn;
  14.     Button2: TButton;
  15.     CheckBox1: TCheckBox;
  16.     Edit1: TEdit;
  17.     procedure ShowSender(Sender: TObject);
  18.   private
  19.     { Private declarations }
  20.   public
  21.     { Public declarations }
  22.   end;
  24. var
  25.   SenderForm: TSenderForm;
  27. implementation
  29. {$R *.DFM}
  31. procedure TSenderForm.ShowSender(Sender: TObject);
  32. begin
  33.   Memo1.Lines.Add ('Class Name: ' +
  34.     Sender.ClassName);
  36.   if Sender.ClassParent <> nil then
  37.     Memo1.Lines.Add ('Parent Class: ' +
  38.       Sender.ClassParent.ClassName);
  40.   Memo1.Lines.Add ('Instance Size: ' +
  41.     IntToStr (Sender.InstanceSize));
  43.   // if the object is (exactly) of the TButton type
  44.   if Sender.ClassType = TButton then
  45.     Memo1.Lines.Add ('TButton ClassType');
  47.   // if the object is a given object
  48.   if Sender = Button1 then
  49.     Memo1.Lines.Add ('This is Button1');
  51.   if Sender.InheritsFrom (TButton) then
  52.     Memo1.Lines.Add ('Sender inherits from TButton');
  54.   if Sender is TButton then
  55.     Memo1.Lines.Add ('Sender is a TButton');
  57.   // leave a blank line
  58.   Memo1.Lines.Add ('');
  59. end;
  61. end.