umainform.pas

来自「含此文档只表示此压缩包来自于DELPHI盒子网站 ------------」· PAS 代码 · 共 81 行

unit UMainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ActiveButton, ImagePanel, StdCtrls,
  ActiveCheckBox, ActiveRadioButton;

type
  TMainForm = class(TForm)
    ActiveButton1: TActiveButton;
    ImagePanel1: TImagePanel;
    ActiveCheckBox1: TActiveCheckBox;
    Label1: TLabel;
    ActiveRadioButton1: TActiveRadioButton;
    ActiveRadioButton2: TActiveRadioButton;
    Label2: TLabel;
    Label3: TLabel;
    procedure Label1Click(Sender: TObject);
    procedure ActiveButton1Click(Sender: TObject);
    procedure Label2Click(Sender: TObject);
    procedure Label2DblClick(Sender: TObject);
    procedure Label3Click(Sender: TObject);
    procedure Label3DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.Label1Click(Sender: TObject);
begin
    ActiveCheckBox1.Checked := not ActiveCheckBox1.Checked;
end;

procedure TMainForm.ActiveButton1Click(Sender: TObject);
var
    Str : String;
begin
    if ActiveCheckBox1.Checked then
        Str := '开始匿名登陆'
    else
        Str := '非匿名登陆';
    if ActiveRadioButton1.Checked then
        Str := Str + '到 A 服务器'
    else if ActiveRadioButton2.Checked then
        Str := Str + '到 B 服务器';

    ShowMessage(Str);
end;

procedure TMainForm.Label2Click(Sender: TObject);
begin
    ActiveRadioButton1.Checked := true;
end;

procedure TMainForm.Label2DblClick(Sender: TObject);
begin
    ActiveRadioButton1.Checked := true;
end;

procedure TMainForm.Label3Click(Sender: TObject);
begin
    ActiveRadioButton2.Checked := true;
end;

procedure TMainForm.Label3DblClick(Sender: TObject);
begin
    ActiveRadioButton2.Checked := true;
end;

end.