EditCaption - markieren ohne Extension

[KodeZwerg]

Hilft Dir das vielleicht weiter?

Delphi-Quellcode:

procedure TFormXYZ.ListView1Editing(Sender: TObject; Item: TListItem;
  var AllowEdit: Boolean);
var
  name, ext, new: string;
begin
  ext := ExtractFileExt(Item.Caption);
  name := Copy(Item.Caption, 1, Length(Item.Caption) - Length(Ext));
  new := InputBox('Edit name...', 'Modify', name);
  Item.Caption := new + ext;
  AllowEdit := False;
end;