Вызов процедуры.

[Leo20]

как выполнить вот эту процедуру

procedure TForm1.ListView1Edited(Sender: TObject; Item: TListItem;
var S: String);
begin
showmessage(s);
end;

при нажатии кнопки?

[BARNEY]

у формы есть свойство onKeyPress

[postal2]

ListView1Edited(button1,item,'some string');

где item - TListItem, а button1 - Tbutton

[psycho-coder]

  ListView1Edited(Sender, ListView1.ItemIndex, 'Какаято строка');

А вообще, если известна строка s, то можно просто вызывть ShowMessage('что-то')

upd
Ух как вас многа

[quit]

Сообщение от Leo20

как выполнить вот эту процедуру

procedure TForm1.ListView1Edited(Sender: TObject; Item: TListItem;
var S: String);
begin
showmessage(s);
end;

при нажатии кнопки?

как то так...

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(ListView1.ItemFocused.Caption);
end;

PS Ужас просто какой то...

[postal2]

ой, сорри, фигню написал..

[quit]

Сообщение от postal2

quit, это процедура а не функция, у неё нет результата. Как следствие компилятор заругается на это

я не проверял... набросал на память, тк не совсем понятно что нужно автору... вот и решил привести такой пример

[Leo20]

procedure TForm1.ListView1Edited(Sender: TObject; Item: TListItem;
  var S: String);
begin
RenameFile(ExcludeTrailingBackSlash(directorylistbox1.Directory) + '\' + listview1.Selected.Caption,
ExcludeTrailingBackSlash(directorylistbox1.Directory) + '\' + s);
end;

procedure TForm1.N7Click(Sender: TObject);
begin
if listView1.Selected <> nil then
begin
listview1.Selected.EditCaption;
//здесь я так думаю нужно вызвать ListView1Edited, как????
end;
end;

нужно переименовать файл, при нажатии кнопки из контекстного меню, но не получается (((
ХелП!

[Stilet]

у формы есть свойство onKeyPress

Событие а не свойство )

[Leo20]

Сообщение от psycho-coder

  ListView1Edited(Sender, ListView1.ItemIndex, 'Какаято строка');

А вообще, если известна строка s, то можно просто вызывть ShowMessage('что-то')

upd
Ух как вас многа

я не могу послать 'Какаято строка' это же будет const Оо