给 Edit 两个可选值

procedure TForm1.Edit1Click(Sender: TObject);
const
  arr: array[-1..0] of string = ('man', 'woman');
begin
  Edit1.Tag := not Edit1.Tag;
  Edit1.Text := arr[Edit1.Tag];
end;

posted @ 2011-03-03 12:49  吴越  阅读(104)  评论(0)    收藏  举报