Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TreeView [D7, XP]

DAn13 © (2006-05-04 18:10:00)
ПОМАГИТЕ!!!!Хочу сделать, так чтобы при нажатие разных разветлений выскакивала новая форма?

Handle (2006-05-15 11:04:00) [1]
Open Project.. \Borland\Delphi7\Demos\CustomDraw

DAn13 (2006-05-14 22:34:00) [2]
Каким оброзом?

TUser (2006-05-11 22:41:00) [3]
Написать свой компонент.

DAn13 (2006-05-11 22:25:00) [4]
Как?

KilkennyCat (2006-05-11 19:50:00) [5]
Можно.

DAn13 (2006-05-10 21:18:00) [6]
Эй! Мастера своего дела! Скажите пожалуйста можно изменить фон в TreeView, какой ни будь рисунок поставить или хотя бы цвет?

KilkennyCat (2006-05-08 13:30:00) [7]

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

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

EvS (2006-05-07 21:59:00) [8]
Да добавляй что хочешь. Только для начала книжки почитай.

DAn13 (2006-05-07 21:51:00) [9]
Люди, добрые... Что получается, что на новую форму ни чего не добавишь или только текст?
if TreeView1.Selected.Text = 'Завод' then
begin
ShowMessage(ля', ля', ля');
end;

DAn13 (2006-05-07 09:46:00) [10]
СПАСИБО!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!

Handle (2006-05-06 21:51:00) [11]
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;

mfender (2006-05-06 21:37:00) [12]
Плясать нужно от того, что записано в Node.Data. Что записано в Node.Data?
*Телепаты ушли отмечать выходные*

KilkennyCat (2006-05-06 21:37:00) [13]
У дерева есть свойство ветка Node: TTreeNode, у которой тоже куча свойств.
В Вашем случае, получаем две ветки "цех2" и "цех1"
дополняем [4] проверкой, какая именно Node.

DAn13 (2006-05-06 21:33:00) [14]
%(

Kilkennycat (2006-05-06 21:28:00) [15]
у меня идет завод

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

DAn13 (2006-05-06 21:22:00) [16]
Спасибо. %( Помогите еще? с полным кодом! Да пустим у меня идет завод, а от него разветвления цех1 и цех2. Как тогда будет выглядит код?

Loginov Dmitry (2006-05-05 20:40:00) [17]

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

Можно:

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

ANB (2006-05-05 20:14:00) [18]
From2.Show;

DAn13 (2006-05-05 20:04:00) [19]
Спасибо! А поподробней можно? С каким ни будь примером!Зарание спасибо!

Loginov Dmitry (2006-05-04 19:09:00) [20]
Используй событие OnChange()

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »