finduser.pas

一个由Tlistview写的通讯录

unit FindUser;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, TabNotBk, StdCtrls;

type
  TFindf = class(TForm)
    TabbedNotebook1: TTabbedNotebook;
    Label2: TLabel;
    NameEdit: TEdit;
    Label14: TLabel;
    EmailEdit: TEdit;
    Label6: TLabel;
    Label3: TLabel;
    MoveTelEdit: TEdit;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Label4: TLabel;
    FontNameEdit: TEdit;
    FontSizeEdit: TEdit;
    ListBox1: TListBox;
    ListBox2: TListBox;
    Button4: TButton;
    Button5: TButton;
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure ListBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FontNameEditChange(Sender: TObject);
    procedure TabbedNotebook1Change(Sender: TObject; NewTab: Integer;
      var AllowChange: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Findf: TFindf;

implementation

uses Note;

{$R *.dfm}

procedure TFindf.Button3Click(Sender: TObject);
var
  i:Byte;
begin
  for i:=0 to ComponentCount-1 do
   if Components[i] is TEdit then
     TEdit(Components[i]).Clear;
end;

procedure TFindf.Button2Click(Sender: TObject);
begin
  Close;
end;

procedure TFindf.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  Release;
end;

procedure TFindf.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#27 then
    Close;
end;

procedure TFindf.ListBox1Click(Sender: TObject);
begin
  with sender as TListbox do
  begin
    if Selected[ItemIndex] then
     if Left=38 then
      FontNameEdit.Text:=Items.Strings[ItemIndex]
     else FontSizeEdit.Text:=Items.Strings[ItemIndex];
  end;
end;

procedure TFindf.FormCreate(Sender: TObject);
begin
  ListBox1.Items:=Screen.Fonts;
  FontNameEdit.Text:=MainForm.ListView.Font.Name;
  FontSizeEdit.Text:=IntToStr(MainForm.ListView.Font.Size);
  ListBox1.ItemIndex:=ListBox1.Items.IndexOf(FontNameEdit.Text);
end;

procedure TFindf.Button4Click(Sender: TObject);
begin
  MainForm.ListView.Font.Size :=StrToInt(FontSizeEdit.Text);
  MainForm.ListView.Font.Name:=FontNameEdit.Text;
  Close;
end;

procedure TFindf.FontNameEditChange(Sender: TObject);
begin
  ListBox1.ItemIndex:=ListBox1.Items.IndexOf(FontNameEdit.Text);
end;

procedure TFindf.TabbedNotebook1Change(Sender: TObject; NewTab: Integer;
  var AllowChange: Boolean);
begin
  with Sender as TTabbedNoteBook do
   if PageIndex=1 then
    Caption:='查找用户'
   else Caption:='设置字体';
end;

end.