Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Процедура https://www.cyberforum.ru/ delphi-beginners/ thread95181.html
Подскажите как можно запустить процедуру procedure TForm1.StringGrid2SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); из другой процедуры...
Delphi минимальный элемент и поменять его с элементом A[N,M].
Помогите доделать задачу,вот условие Задан двухмерный массив целых чисел A размером N на M. Найти: минимальный элемент и поменять его с элементом A. я уже нашел минимум, но вот возникла проблема не...
Delphi строка и символ
Такая задача. Задана строка и символ. После каждого вхождения заданного символа вставить пробел. вообще не представляю как делать((
Delphi Поменять в матрице местами последний столбец и столбец, содержащий минимальный элемент Добрый вечер возникла проблема при написании программы, вот условие В данной действительной матрице размера 3 х 3 поменять местами последний столбец и столбец, содержащий минимальный элемент.... https://www.cyberforum.ru/ delphi-beginners/ thread95146.html
Delphi Как програмно запустить (нажать) кнопку https://www.cyberforum.ru/ delphi-beginners/ thread95117.html
На форме две кнопки. Как нажатием на первой кнопке запустить вторую. Заранее благодарен.
Пуск - Выполнить Delphi
Уважаемые! Может кто-нибудь знает какому файлу принадлежит это окно (Пуск-->Выполнить).Вообщем его надо програмно открыть.За ранее спасибо
Delphi ComboBox
Требуется связать 2 combobox'a следующим образом. Например, из первого списка я выбираю одну из заранее зафиксированных фамилий. Нужно сделать так, чтобы во втором combobox'e в списке остались лишь...
Delphi Сохранение и открытие файла Нужно организовать сохранение данных (элементы StringGrid) в файл, а также открытие (и соответственно заполнение этого самого StringGrid) Элементы формы: Button и StringGrid:procedure... https://www.cyberforum.ru/ delphi-beginners/ thread95078.html
Delphi Задана последовательность целих чисел, которая заканчивается нулём. Найти все автоморфные числа этой последовательности. https://www.cyberforum.ru/ delphi-beginners/ thread94823.html
привет! помогите пожалуйста... Задана последовательность целих чисел, которая заканчивается нулём. Найти все автоморфные числа этой последовательности.
Delphi Делфи и Принтер Здраствуйте! есть вопрос- можно ли Делфи привязать к принтеру, чтобы установить счётчик по количеству отпечатанных листов! Т.е принтер в активном режиме..пошла печать на нём 7листов, отпечатал,... https://www.cyberforum.ru/ delphi-beginners/ thread94792.html
Junior Developer
43 / 43 / 7
Регистрация: 08.06.2009
Сообщений: 261
16.02.2010, 23:29  [ТС] 0

Выполнение действий при выборе ветви TreeView

16.02.2010, 23:29. Просмотров 1201. Ответов 9
Метки (Все метки)

Ответ

}{NiM, а как тогда получить не последний, а все файлы?

Добавлено через 11 минут
извиняюсь, уже разобрался..)))

Добавлено через 4 минуты
вот хочу обратно повториться, и спросить, что в этом коде надо исправить чтобы он выводил не на вторую подветку записи а на первую подветку, м?

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    TreeView1: TTreeView;
    Memo1: TMemo;
    procedure TreeView1Click(Sender: TObject);
  private
    { Private declarations }
  public
music: integer;
SR: TSearchRec; //ïîèñêîâàÿ ïåðåìåííàÿ
search_result: string;
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.TreeView1Click(Sender: TObject);
var
  name: TFileName;
begin
if treeview1.Selected.Index <> 0 then begin
  treeview1.Items[0].SelectedIndex:= 0;
  music:= FindFirst('C:\Documents and Settings\user\My Documents\My Music\muza\*.mp3', faAnyFile, SR);
    while music = 0 do begin
      name:= SR.Name;
      music:= FindNext(SR);
memo1.Lines.Add(name);
    end;
  showmessage('find is compleated!');
  FindClose(SR);
end;
 
end;
 
end.


Вернуться к обсуждению:
Выполнение действий при выборе ветви TreeView
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.02.2010, 23:29

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

Автоматическое выполнение действий при заполнении таблицы
Имеется постоянно пополняемая таблица (хобби). 2 столбца. Задача. 1. При введении очередных...

Выполнение действий при нажатии на представление в уведомлении
Здравствуйте! Возник следующий вопрос: можно ли на нажатие в уведомлении на представление задать...

Автоматическое выполнение действий при загрузке страницы
Добрый день. Имеется input вида: &lt;input id=&quot;input_name_id_&quot;&gt;, в него загружаются данные из базы...

При выборе в treeview отображать определённую конфигурацию в datagridview
помогите плиз ..нужно чтобы при выборе в treeview отображалась бы определённая конфигурация в...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.