userinfo.pas

本程序是转载的

unit UserInfo;
{(C) Alex Demchenko([e-mail])}

interface

uses
  Windows, Messages, Classes, Graphics, Controls, Forms,
  ComCtrls, StdCtrls, ICQWorks;

type
  TUserInfoForm = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    GroupBox2: TGroupBox;
    Label6: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    GroupBox3: TGroupBox;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    UINLabel: TLabel;
    FirstNameLabel: TLabel;
    LastNameLabel: TLabel;
    EmailLabel: TLabel;
    StreetLabel: TLabel;
    CityLabel: TLabel;
    CountryLabel: TLabel;
    ZipLabel: TLabel;
    TimeZoneLabel: TLabel;
    AgeLabel: TLabel;
    GenderLabel: TLabel;
    HomePageLabel: TLabel;
    DayOfBirthLabel: TLabel;
    Language1Label: TLabel;
    Language2Label: TLabel;
    Language3Label: TLabel;
    NickNameLabel: TLabel;
    Label17: TLabel;
    Button1: TButton;
    Label18: TLabel;
    CellularLabel: TLabel;
    GroupBox4: TGroupBox;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    WCityLabel: TLabel;
    WStateLabel: TLabel;
    WPhoneLabel: TLabel;
    WFaxLabel: TLabel;
    WAddressLabel: TLabel;
    WZipLabel: TLabel;
    WCountryLabel: TLabel;
    WCompanyLabel: TLabel;
    WDepartmentLabel: TLabel;
    WPositionLabel: TLabel;
    WOccupationLabel: TLabel;
    WHomePageLabel: TLabel;
    GroupBox5: TGroupBox;
    GroupBox6: TGroupBox;
    AboutMemo: TMemo;
    InterestsView: TListView;
    TabSheet4: TTabSheet;
    GroupBox7: TGroupBox;
    GroupBox8: TGroupBox;
    PastsListView: TListView;
    AffiliationsListView: TListView;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    FSource: String;
  end;

var
  UserInfoForm: TUserInfoForm;

implementation
uses
  Main;

{$R *.dfm}

procedure TUserInfoForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
var
  i: Integer;
begin
  Action := caFree;
  i := MainForm.GetUserInfoIdx(FSource);
  if i > -1 then
    MainForm.FInfoList.Delete(i);
end;

procedure TUserInfoForm.Button1Click(Sender: TObject);
begin
  MainForm.ICQClient1.RequestInfo(StrToInt(FSource));
end;

end.