Вызов одной процедуры из другой

[artemavd]

Есть компонент ShellListView1, в котором отображается список файлов папки и есть StringGrid1, в котором обрабатыватся нажатие клавиши Enter. По ShellListView1 я перемещаюсь стрелками вверх и вниз так:

procedure TMainForm.ShellListView1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = VK_DOWN then
 begin
  MainForm.Image2.Picture.LoadFromFile(MainForm.ShellListView1.SelectedFolder.PathName);
 end;

 if Key = VK_UP then
 begin
  MainForm.Image2.Picture.LoadFromFile(MainForm.ShellListView1.SelectedFolder.PathName);
 end;
end;

procedure TMainForm.ShellListView1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = VK_DOWN then
 begin
  MainForm.Image2.Picture.LoadFromFile(MainForm.ShellListView1.SelectedFolder.PathName);
 end;

 if Key = VK_UP then
 begin
  MainForm.Image2.Picture.LoadFromFile(MainForm.ShellListView1.SelectedFolder.PathName);
 end;
end;

Вопрос в том, как когда на StringGrid1 нажимаем Enter вызвать вот эти процедуры:

procedure TMainForm.ShellListView1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure TMainForm.ShellListView1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);

[MaxNik2009]

Ну как-то так:

procedure TForm2.StringGrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  var
    K: Word;
begin
  K:= Vk_Up;
  if Key = VK_RETURN then
    ShellListView1KeyUp(sender, K, []);
end;

[artemavd]

Нет, так не работает, ничего не происходит...по списку файлов в SHellListView1 переход не осуществляется

[Stilet]

Нет, так не работает

Правильно так не получится. Тебе нужно найти метод, который переходит по этому компоненту на следующую-предыдущую папку, или найти сообщение, и послать этому компоненту, и только уж потом

  if Key = VK_RETURN then
    ShellListView1KeyUp(sender, K, []);

Вот что-то в таком роде

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 with ShellListView1 do begin
  if tag<Items.Count then begin
   Selected:=Items[tag];
   tag:=Tag+1;
  end;
 end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
 with ShellListView1 do begin
  if tag>0 then begin
   Selected:=Items[tag];
   tag:=Tag-1;
  end;
 end;
end;

Здесь по кнопкам переход на следующее элементы

[artemavd]

Тебе нужно найти метод, который переходит по этому компоненту на следующую-предыдущую папку, или найти сообщение, и послать этому компоненту

Не понял..
Кстати, сразу спрошу тоже, это относится к этой теме. Быть может я откажусь от того, что щас делаю если получится сделать следующее. Перемещаюсь вниз и добавляю строку в таблицу так, а также вверх по списку:

procedure TMainForm.ShellListView1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = VK_DOWN then
 begin
  MainForm.Image2.Picture.LoadFromFile(MainForm.ShellListView1.SelectedFolder.PathName);
  MainForm.StringGrid1.RowCount:=MainForm.StringGrid1.RowCount + 1;
 end;

 if Key = VK_UP then
 begin
  MainForm.Image2.Picture.LoadFromFile(MainForm.ShellListView1.SelectedFolder.PathName);
  MainForm.StringGrid1.Row:=MainForm.StringGrid1.RowCount - 1;
 end;
end;

procedure TMainForm.ShellListView1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = VK_DOWN then
 begin
  MainForm.Image2.Picture.LoadFromFile(MainForm.ShellListView1.SelectedFolder.PathName);
 end;

 if Key = VK_UP then
 begin
  MainForm.Image2.Picture.LoadFromFile(MainForm.ShellListView1.SelectedFolder.PathName);
 end;
end;

Не получается следующее: 1. когда перемещаюсь вверх, то почему-то не удаляется добавленная в таблицу последняя строка; 2. Как поставить курсор на последнюю добавленную строку хотя бы? Если сделать второе, то первое впринципе необязательно, это я так, для удобства хотел. Помогите со вторым вопросом.

[Utkin]

Вот второй вариант:

procedure TMainForm.ShellListView1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
     MyProc (параметры);
end;

А в MyProc уже делаешь все действия которые тебе нужны в TMainForm.ShellListView1KeyDown.
Затем, когда тебе понадобится

StringGrid1 нажимаем Enter вызвать вот эти процедуры:

просто вызовешь MyProc в условии на проверку if Key=13 ...

[artemavd]

Гляньте мой предыдущий пост, я его немного дополнил)

[Utkin]

Как конкретно выделить ячейку не знаю, но можно попробоваь программно кликнуть мышью на нужную тебе строку .

[artemavd]

А как удалять строки при перемещении вверх и программно кликнуть на нужную строку?
Вот, сделал так:

procedure TMainForm.ShellListView1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = VK_DOWN then
 begin
  MainForm.Image2.Picture.LoadFromFile(MainForm.ShellListView1.SelectedFolder.PathName);
  MainForm.StringGrid1.RowCount:=MainForm.StringGrid1.RowCount + 1;
  MainForm.StringGrid1.SetFocus;
 end;

 if Key = VK_UP then
 begin
  MainForm.Image2.Picture.LoadFromFile(MainForm.ShellListView1.SelectedFolder.PathName);
  MainForm.StringGrid1.Row:=MainForm.StringGrid1.RowCount - 1;
 end;
end;

procedure TMainForm.ShellListView1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = VK_DOWN then
 begin
  MainForm.Image2.Picture.LoadFromFile(MainForm.ShellListView1.SelectedFolder.PathName);
  MainForm.StringGrid1.SetFocus;
 end;

 if Key = VK_UP then
 begin
  MainForm.Image2.Picture.LoadFromFile(MainForm.ShellListView1.SelectedFolder.PathName);
 end;
end;

Строка добавляется при перемещении вниз, курсор вставляется на последнюю добавленную строка только после того как я нажму мышкой на какой-нибудь строке в ShellListView, а потом снова нажму на клавишу перемещения вниз....как бы это исправить, чтобы курсор сразу помещался куда надо?
Виталий, ну вот я попробовал твой последний вариант:

procedure TMainForm.Button2Click(Sender: TObject);
begin
 with MainForm.ShellListView1 do
 begin
  if Tag < Items.Count then
  begin
   Selected:=Items[Tag];
   MainForm.Image2.Picture.LoadFromFile(MainForm.ShellListView1.SelectedFolder.PathName);
   Tag:=Tag + 1;
  end;
 end;
end;

нажимаю на кнопку, вижу, что в списке файлов идет выделение имени файла после каждого нажатия вниз, а в Image не грузится картиинка.

[dmitriegorovih]

Вы вот это имели введу?

var
  Form1: TForm1;
  n:word;
implementation

{$R *.dfm}

procedure TForm1.StringGrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
n:=40;
if key=13 then begin
form1.ShellListView1KeyDown(shelllistview1,n,shift);
end;
end;

procedure TForm1.ShellListView1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_down then begin
showmessage('Привед медвед!');
//
end;
end;

end.