AnchForm.pas
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:1k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. unit AnchForm;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  5.   StdCtrls;
  6. type
  7.   TForm1 = class(TForm)
  8.     BtnClose: TButton;
  9.     BtnShow: TButton;
  10.     ListBox1: TListBox;
  11.     procedure BtnShowClick(Sender: TObject);
  12.     procedure FormCreate(Sender: TObject);
  13.     procedure BtnCloseClick(Sender: TObject);
  14.   private
  15.     { Private declarations }
  16.   public
  17.     { Public declarations }
  18.   end;
  19. var
  20.   Form1: TForm1;
  21. implementation
  22. {$R *.DFM}
  23. procedure TForm1.BtnShowClick(Sender: TObject);
  24. begin
  25.   ShowMessage (ListBox1.Items [ListBox1.ItemIndex]);
  26. end;
  27. procedure TForm1.FormCreate(Sender: TObject);
  28. begin
  29.   // select the first item
  30.   ListBox1.ItemIndex := 0;
  31. end;
  32. procedure TForm1.BtnCloseClick(Sender: TObject);
  33. begin
  34.   Close;
  35. end;
  36. end.