Здравствуйте. Извените что может я надоедаю со своими вопроссам а сам редко на что отвечаю. Но просто я еще не дошел до того уровня до которого дошли вы. Но я быстро учусь и скоро буду учавствовать в ваших разговорах. А теперь вернемся к моей проблемме мне нужно как то отследить нажатие на определенную ветвь в ТриВиев а то я не знаю как это осуществить. В менюшках проще там 2 раза кликнул и все зарабортало но как тут это сделать не знаю. Помогите плиз. Заранее благодарен. С ув. Александр

OnChange()

Цитата(Grinders @ 1.3.2005, 07:37)

OnChange()

Сенку Вери Мач

Цитата(Alex103 @ 1.3.2005, 07:44)

Цитата(Grinders @ 1.3.2005, 07:37) OnChange() Сенку Вери Мач

Есть проблемма это не получаеться проделать с БД. Мне нужно сделать следующее. При нажатии в Три Виев должно происходить следующее должна открываться определенная база данных. Но у меня это не получаеться. Я это делал таким способом.

procedure TForm1.TreeView1Click(Sender: TObject);
begin
if TreeView1.Items.Item[0].Selected=true then begin
Table1.TableName:= 'S2005.DBF';
end;
end;

Подскажите как правильно сделать и почему у меня после нажатия на первую ветку ничего не происходит. я уже пробывал менят ветки нажимал на них но ничего не получалось.

Я бы сделал, что нить в этом роде:

Код

i := TreeView1.Selected.Index;  L := TreeView1.Selected.Level;

Потом через select case проверялбы......ИМХО проще всего.

Alex103 Дерево у тебя статическое или динамическое?

Цитата(Alex @ 1.3.2005, 10:01)

Alex103 Дерево у тебя статическое или динамическое?

Я не знаю

Цитата(Alex103 @ 1.3.2005, 11:12)

Я не знаю

Оно дополняется во время работы программы или нет?

Цитата(Alex @ 1.3.2005, 14:48)

Цитата(Alex103 @ 1.3.2005, 11:12) Я не знаю Оно дополняется во время работы программы или нет?

Ну в смысле. Я его создал до запуска программы и дополняться оно никогда не будет!

~FoX~ Дата 1.3.2005, 09:38
Я бы сделал, что нить в этом роде:
Код
i := TreeView1.Selected.Index;
L := TreeView1.Selected.Level;



кажется, для его задачи
TreeView1.Selected.Text

Цитата(bursa @ 2.3.2005, 09:10)

кажется, для его задачи TreeView1.Selected.Text

А если надписи на ветвях могут совпадать?

Ну, конечно, конечно.
Но наверняка, названия баз у него различные и потому

Код

procedure TForm1.TreeView1Click(Sender: TObject); begin Table1.TableName:= TreeView1.Selected.Text; end;

вот и всё.

Это сообщение отредактировал(а) Alex - 4.3.2005, 19:06

bursa
А кто сказал что в ветках названия баз записаны?

Цитата(Alex103 @ 1.3.2005, 08:56)

if TreeView1.Items.Item[0].Selected=true then begin Table1.TableName:= 'S2005.DBF';

Код

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode); begin  case Node.AbsoluteIndex of    0:; // Обработка, когда выбран первый элемент    1:; // Обработка, когда выбран второй элемент  end; end;

Огромнейшее всем спасибо!!!!!!!!!!!!!!