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

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

Delphi控件源码

开发平台：

Delphi

TextPF.pas：源码内容
  1. unit TextPF;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls;
  9. type
  10.   TForm1 = class(TForm)
  11.     Edit1: TEdit;
  12.     Button1: TButton;
  13.     CheckBox1: TCheckBox;
  14.     Label1: TLabel;
  15.     Memo1: TMemo;
  16.     ListBox1: TListBox;
  17.     procedure Button1Click(Sender: TObject);
  18.   private
  19.     { Private declarations }
  20.   public
  21.     { Public declarations }
  22.   end;
  24. var
  25.   Form1: TForm1;
  27. implementation
  29. {$R *.DFM}
  31. type
  32.   TControlHack = class (TControl);
  34. procedure TForm1.Button1Click(Sender: TObject);
  35. var
  36.   I: Integer;
  37. begin
  38.   for I := 0 to ControlCount - 1 do
  39.     TControlHack (Controls [I]).Text :=
  40.       TControlHack (Controls [I]).Text + '*';
  41. end;
  43. end.