Treeview Menü ve Paneller

[Raskolnikov]

Arkadaşlar Merhabalar;

Formumda 1 adet treeview yaklaşık 35-40 panel var.Soldaki Treeview in içinde ki itemslere bağlı panelleri ön plana taşıyorum tabi bunu "visible" özelliği ile yaptığım için 35-40 panellede inaılmaz zoluk oluyor.Sayın@vkamadan arkadaşımın pocedure sini inceledim fakat "tag" larıayarlamış olmama rağmen sadece ilk paneli öne taşıyabildim.Acaba Windows 7 kullanmamla bir alakası var mıdır?Bu tipte bir menünüyü daha kolay bir şekilde nasıl yaparım?

http://upload.wikimedia.org/wikipedia/c ... _TRK_2.png

İyi çalışmalar.

[qamyoncu]

Kod: Tümünü seç

procedure ShowPanel(Panel: TPanel);
begin
if panel1.visible=True then
panel1.Visible:=False;
if panel2.visible=True then
panel2.Visible:=False;
if panel3.visible=True then
panel3.Visible:=False;
...
...
if panelN.Visible=True then
panelN.Visible:=False;

Panel.Visible:=True;
end;

Kod: Tümünü seç

procedure ButtonCartCurtOnClick(Sender: TObject);
begin
..
ShowPanel(Panel3);
..
end;

[nightwolfcem]

Formuma 4 panel(üst üste ) ve 1 RadioGroup box koydum groupbox ın elemanları Panel1,Panel2,PAnel3 ve PAnel4
yani radiobox da hangi paneli seçersem onu öne getirmek istiyorum
Kod:

Kod: Tümünü seç

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
 TWincontrol(form1.FindComponent('Panel'+inttostr(RadioGroup1.ItemIndex+1))).BringToFront;
end;

Aynı mantığı projene uyarlıya bilirsin sanırım