TreeView

← →
DAn13 © (2006-05-04 18:10) [0]

ПОМАГИТЕ!!!! Хочу сделать, так чтобы при нажатие разных разветлений выскакивала новая форма?

← →
Loginov Dmitry © (2006-05-04 19:09) [1]

Используй событие OnChange()

← →
DAn13 © (2006-05-05 20:04) [2]

Спасибо! А поподробней можно? С каким ни будь примером! Зарание спасибо!

← →
ANB © (2006-05-05 20:14) [3]

From2.Show;

← →
Loginov Dmitry © (2006-05-05 20:40) [4]

> А поподробней можно? С каким ни будь примером!

Можно:

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode); begin with TForm.Create(Application) do Show; end;

← →
DAn13 © (2006-05-06 21:22) [5]

Спасибо. %( Помогите еще? с полным кодом! Да пустим у меня идет завод, а от него разветвления цех1 и цех2. Как тогда будет выглядит код?

← →
Kilkennycat © (2006-05-06 21:28) [6]

у меня идет завод

А если завод закончился, то код меняется...

← →
DAn13 © (2006-05-06 21:33) [7]

← →
KilkennyCat © (2006-05-06 21:37) [8]

У дерева есть свойство ветка Node: TTreeNode, у которой тоже куча свойств.
В Вашем случае, получаем две ветки "цех2" и "цех1"
дополняем [4] проверкой, какая именно Node.

← →
mfender © (2006-05-06 21:37) [9]

Плясать нужно от того, что записано в Node.Data. Что записано в Node.Data?
*Телепаты ушли отмечать выходные*

← →
Handle (2006-05-06 21:51) [10]

procedure TForm1.TreeView1Click(Sender: TObject); begin if TreeView1.Selected.Text = "Завод" then begin ShowMessage(ля", ля", ля"); end; if TreeView1.Selected.Text = "цех1" then begin with TForm.Create(Application) do Show; end; if TreeView1.Selected.Text = "цех2" then begin with TForm.Create(Application) do Show; end; end;

← →
DAn13 © (2006-05-07 09:46) [11]

СПАСИБО!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!

← →
DAn13 © (2006-05-07 21:51) [12]

Люди, добрые... Что получается, что на новую форму ни чего не добавишь или только текст?
if TreeView1.Selected.Text = "Завод" then
begin
ShowMessage(ля", ля", ля");
end;

← →
EvS © (2006-05-07 21:59) [13]

Да добавляй что хочешь. Только для начала книжки почитай.

← →
KilkennyCat © (2006-05-08 13:30) [14]

> Что получается, что на новую форму ни чего не добавишь или
> только текст?

Если Вы можете добавить хотя бы текст, значит, можете добавить все.
В выше приведенных примерах форма создается, рождается абсолютно новая и абсолютно в процессе работы программы. Чтобы на ней что-то создать, надо аналогично создать (родить) компоненты, указав ее в качестве родителя.
Если это затруднено, создайте необходимые формы в процессе разработки, подключите их к проекту, и вызывайте их уже готовые.

Эй! Мастера своего дела! Скажите пожалуйста можно изменить фон в TreeView, какой ни будь рисунок поставить или хотя бы цвет?

Можно.

Как?

Написать свой компонент.

Каким оброзом?

← →
Handle (2006-05-15 11:04) [20]

Open Project.. \Borland\Delphi7\Demos\CustomDraw

TreeView Найти похожие ветки