Вызов одной процедуры из другой - Общие вопросы Delphi - Страница 2

wm_leviathan · 26.11.2010, 17:34

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 if k>=Form1.ShellListView1.Items.Count then
 k:=0
 else begin
 Form1.ShellListView1.SetFocus;
 Form1.ShellListView1.Selected := Form1.ShellListView1.Items[k];
 Form1.Image1.Picture.LoadFromFile(Form1.ShellListView1.Folders[ShellListView1.ItemIndex].PathName);
 k:=k+1;
 end;
end;

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

artemavd · 26.11.2010, 17:37

Всем спасибо, вопрос решен

. Тема закрыта.

26.11.2010, 17:34	#11
wm_leviathan Форумчанин Регистрация: 17.02.2010 Сообщений: 399	Код: `procedure TForm1.Button1Click(Sender: TObject); begin if k>=Form1.ShellListView1.Items.Count then k:=0 else begin Form1.ShellListView1.SetFocus; Form1.ShellListView1.Selected := Form1.ShellListView1.Items[k]; Form1.Image1.Picture.LoadFromFile(Form1.ShellListView1.Folders[ShellListView1.ItemIndex].PathName); k:=k+1; end; end;` все что надо. без издевательства с иммитацией нажатия клавиш. но... каков вопрос таков ответ Последний раз редактировалось artemavd; 26.11.2010 в 17:38.

26.11.2010, 17:37	#12
artemavd Старожил Регистрация: 05.06.2008 Сообщений: 4,206	Всем спасибо, вопрос решен . Тема закрыта. Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Вызов функции из другой книги	Tolikv	Microsoft Office Excel	1	06.07.2010 13:52
Ошибка вызова одной процедуры в другой!	$T@LKER	БД в Delphi	4	28.04.2010 19:50
Вызов другой программы	Anatoly555	Помощь студентам	1	18.03.2010 08:08
TabControlChanging вызов из другой процедуры	FaTaL	Общие вопросы Delphi	3	25.12.2009 15:08
delphi вызов одной формы из другой	hi-end1	Помощь студентам	4	17.10.2009 19:53