Форум: "Начинающим";
Текущий архив: 2006.06.04;
Скачать: [xml.tar.bz2];
Вниз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]
> Что получается, что на новую форму ни чего не добавишь или
> только текст?
Если Вы можете добавить хотя бы текст, значит, можете добавить все.
В выше приведенных примерах форма создается, рождается абсолютно новая и абсолютно в процессе работы программы. Чтобы на ней что-то создать, надо аналогично создать (родить) компоненты, указав ее в качестве родителя.
Если это затруднено, создайте необходимые формы в процессе разработки, подключите их к проекту, и вызывайте их уже готовые.
← →
DAn13 © (2006-05-10 21:18) [15]Эй! Мастера своего дела! Скажите пожалуйста можно изменить фон в TreeView, какой ни будь рисунок поставить или хотя бы цвет?
← →
KilkennyCat © (2006-05-11 19:50) [16]Можно.
← →
DAn13 © (2006-05-11 22:25) [17]Как?
← →
TUser © (2006-05-11 22:41) [18]Написать свой компонент.
← →
DAn13 © (2006-05-14 22:34) [19]Каким оброзом?
← →
Handle (2006-05-15 11:04) [20]Open Project.. \Borland\Delphi7\Demos\CustomDraw
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.06.04;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.041 c