文本框的小问题

Question

文本框事件设置成edit1.SelectAll
每次鼠标点击都选中了所有文本我看到很多输入框,都是鼠标点击一次,选中所有文本,再点击一次,就不选中所有文本了.这种效果怎么做呢?

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure Edit1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  i:integer;
implementation{$R *.dfm}procedure TForm1.Edit1Click(Sender: TObject);
begin
   if i=0 then
   begin
    i:=i+1;
    edit2.SelectAll;
   end
   else
end;procedure TForm1.FormCreate(Sender: TObject);
begin
 i:=0;
end;end.

Answer 2

  public
    { Public declarations }
    vg_flag:Integer;
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Edit1Click(Sender: TObject);
begin
  if self.vg_flag=0 then
  begin
    self.Edit1.SelectAll;
    Self.vg_flag:=1;
  end
  else
  begin
    self.Edit1.SelStart:=Length(self.Edit1.Text)+1;
    self.Edit1.SelLength:=0;
    self.vg_flag:=0;
  end;
end;procedure TForm1.FormShow(Sender: TObject);
begin
  self.vg_flag:=0;
end;

Answer 3

觸發事件時self.Edit1.SelLength:=0;