| Понятие программирование, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
TQuery не сохраняет запись Пишу прогу на Delphi7 для работы в локальной сети, Помогите - горит проект SelectDirectory, Как вызвать SelectDirectory Управление монитором, Управление монитором АлгорЫтм Вертикальная полоса прокрутки, У DBGridEh Подсчет трафика? TEmbeddedWB, TEmbeddedWB Прога не дает завершиться винде. Как побороть?, События при перезагрузке? В чем ошибка? ASPI/SCSI: HostAdapter+Target IDs, Как их получить ? MP3 компонент Модуль ShellAPI, Запуск программы! Где взять компонент для работы с CPU Клава Нужен специалист - модем-программист У меня затмение.........Требуется просветление Вычисление индекса..., Работа с массивом.... Опять TQuery. Timagelist, почему глючит код? двойные интегралы, методы решения,формулы гаусса Запуск Delphi, Запускается 2я копия Delphi Хэлпы в Дельфях Горизонтальные полосы прокрутки в ListBox. Работа с LPT портом Мессага одной программы для другой Редактирование данных в таблице Кто знает как сделать.... Меняем громкость, при наличии активного окна О DBGrid, Многострочные данные Где взять полный MSDN Растягивание формы Запуск программ на удалённой машине у кого нить есть полная версия (зареганая), компонентов XPStyle оч нужно Как Вы относитесь к курящим девушкам? Просмотр BMP файла в Паскаль-программах, Это интересно! Копирование на диск С в режиме пользователя в XP различимые ToolButton, различимые ToolButton Запущеные процессы Как убрать иконку с формы? Закрытие CD-ROM и его раскручивание Фоторобот Программа с двумя формами, Как в одном приложении создать две формы Скрытие Dock контрола Хочу свой SpeedButton GetPrivateProfileString, Чтение секции? Создание формы, Ошибка в создании формы Нужна помощь в Delphi, Подробности внутри Вопрос о Data Controls Хочу, чтобы программа не сварачивалась!?, при нажатии Windows+D??? Как подготовить инсталлятор,который ставит драйвер ShowMessage or ?, Создать сообщение независимо от проги Компонент WSocket and WServerSocket, нужно передать файл... События в Делфи, как отменить событие? Вопрос о TDBComboBox Узнать SID, Как узнать SID текущего юзера TDBNavigator, кнопки в TDBNavigator Exe, dll и сессия соединения с БД, Как использовать только 1 сессию? Как изменить оформление окна проги? Фреймы и ДЛЛ, продолжаю тему про плагины а как сделать закладки, а как сделать закладки WebSnap работа с базой ошибки в Common GateWay Interface, какие могут возникнуть Работа с локальной сетью на Delphi замена части файла перехват cookie Переполнение стека при вызове функции, Как обойти? Memo или RichEdit со смайлами, Нужно отображать смайлики Обнуление автоинкрементного поля, в таблице Paradox 7 Справка для программы, чем и как создавать? |
Платные хостинги Раскрутка сайта Книги по программированию У меня затмение.........Требуется просветление
- У меня есть TreeView и 4 четыре кнопки Button1, Button2, Button3, Button4. В TreeView есть такой списокКаталог............Имя 1............Имя 2............Имя 3............Имя 4Мне необходимо при нажатии на Button1 что бы фокус падал на "Имя 1", при нажатии на Button2, фокус падал на "Имя 2". Неповерите, но на этом меня замкнуло просто - 2 часа просидел, так и не понял. Черт подери как говориться - требуется просветление. Скиньте примерчик как это сделать? - Код TreeView1.Select();//-----------------------//procedure Select(const Nodes: array of TTreeNode); overload; virtual;procedure Select(Nodes: TList); overload; virtual;procedure Select(Node: TTreeNode; ShiftState: TShiftState = []); overload; virtual;highlightSyntax('delphi4MzZkZ','delphi'); Добавлено @ 10:29 можно выделять жырнымнашел в DW6Код uses CommCtrl; procedure SetNodeBoldState(Node: TTreeNode; Value: Boolean); var TVItem: TTVItem; begin if not Assigned(Node) then Exit; with TVItem do begin mask := TVIF_STATE or TVIF_HANDLE; hItem := Node.ItemId; stateMask := TVIS_BOLD; if Value then state := TVIS_BOLD else state := 0; TreeView_SetItem(Node.Handle, TVItem); end; end; // Example: Make the first node bold. // Beispiel: Erster Eintrag fett machen. procedure TForm1.Button1Click(Sender: TObject); begin SetNodeBoldState(TreeView1.Items[0], True); end;highlightSyntax('delphiDU3NjM','delphi'); - Вот, что вышло господа!unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;type TForm1 = class(TForm) TreeView1: TTreeView; Button1: TButton; Button2: TButton; Button3: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);var i : Integer; // Поставить в TreeView1 свойство HideSelection = False // если false, то в дереве выделенный элемент будет виден даже если // фокус ввода находится у другого контрола.begin for i :=0 to TreeView1.Items.Count-1 do if TreeView1.Items.Item[i].Text = 'Имя 1' then TreeView1.Selected := TreeView1.Items.Item[i];end;procedure TForm1.Button2Click(Sender: TObject);var i : Integer; // Поставить в TreeView1 свойство HideSelection = False // если false, то в дереве выделенный элемент будет виден даже если // фокус ввода находится у другого контрола.begin for i :=0 to TreeView1.Items.Count-1 do if TreeView1.Items.Item[i].Text = 'Имя 2' then TreeView1.Selected := TreeView1.Items.Item[i];end;end.Может кто знает как это сделать подругому, буду рад! - А просто так не поможет?Код procedure TForm1.Button1Click(Sender: TObject);begin TreeView1.Selected := TreeView1.Items.Item[1];end;procedure TForm1.Button2Click(Sender: TObject);begin TreeView1.Selected := TreeView1.Items.Item[2];end;highlightSyntax('delphi2U5ZmV','delphi');Итемы, как водиться, начинаются с 0, это "Каталог" в твоем случае. - Это конечно все правильно, но если ветки начать перемещать, то по мойму будит белеберда? Разве не так?  |