Eigener Dialog+TOpendialog Umbenennen Funktion über F2 Taste

[Luckie]

Und hier alles zusammen:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    ListView1: TListView;
    procedure ListView1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ListView1Edited(Sender: TObject; Item: TListItem;
      var S: String);
  private
    { Private declarations }
    CptBeforeEdt: String;
    CptAfterEdt: String;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ListView1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_F2 then
  begin
    Listview1.Selected.EditCaption;
    CptBeforeEdt := Listview1.Items[Listview1.ItemIndex].Caption;
  end;
end;

procedure TForm1.ListView1Edited(Sender: TObject; Item: TListItem;
  var S: String);
begin
  CptAfterEdt := s;
  ShowMessage(Format('RenameFile(%s, %s)', [CptBeforeEdt, CptAfterEdt]));
end;