如何编程实现按[F2]键就使listview的caption进入编辑状态?

Question

先谢了。

Answer 1

OnKeyDown事件，
procedure TForm1.ListView1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_F2 then
    ListView1.Selected.EditCaption;
end;

Answer 2

procedure TForm1.FormCreate(Sender: TObject);
begin
  form1.KeyPreview:=true;
end;procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=vk_f2 then
  begin
    listview1.Selected.EditCaption;
  end;
end;

Answer 3

再加一句获得焦点的语句：
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=vk_f2 then
  begin
    listview1.setfocus;
    listview1.Selected.EditCaption;
  end;
end;

Answer 4

当焦点不在listView控件上时也可以。procedure TForm1.FormCreate(Sender: TObject);
begin
  form1.KeyPreview:=true;
end;procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key=vk_f2) and (listview1.Selected<>nil) then
  begin
    listview1.Selected.EditCaption;
  end;
end;