Solved

TreeView like explorer with title and X button

Posted on 2001-07-02
8
322 Views
Last Modified: 2012-05-04
I want to look a TreeView like the Treeview of the Windows Explorer in Win2000 (Win98,WinME?):
A treeview with a title "Folder" and a black x sign to hide the treeview.
Is there a way to extend my Delphi Treeview element? I would prefer a solution without writing a new component - perhaps I can set the style with:
  SetWindowLong(Treeview.Handle, GWL_STYLE, NewStyle );
I use Delphi 4.0.
0
Comment
Question by:bengore
  • 3
  • 3
  • 2
8 Comments
 
LVL 5

Accepted Solution

by:
TheNeil earned 50 total points
ID: 6244038
You could just drop a TPanel onto your form and then add a second TPanel inside that, align it to the top, and then add a TTreeView and align that as client. You'd need to add the button yourself and code the logic but it would save the need for coding a new component and wouldn't take too much time

The Neil =:)
0
 

Author Comment

by:bengore
ID: 6244129
Hi TheNeil, thank you for your answer. Your solution is of cource the most simple solution - but it looks not so good (see the 3D edges, or see in other screen solutions).
0
 
LVL 11

Expert Comment

by:robert_marquardt
ID: 6244187
Have a look at VirtualTreeView (http://delphi-jedi.org/Jedi:VCLCOMPONENTS)
It is a bit complicated, but can do strange tricks.
You will still have to do the close box yourself.
Anyway, in Explorer the close box is a management element of the docked window parts. You should do that the same way.
0
Optimizing Cloud Backup for Low Bandwidth

With cloud storage prices going down a growing number of SMBs start to use it for backup storage. Unfortunately, business data volume rarely fits the average Internet speed. This article provides an overview of main Internet speed challenges and reveals backup best practices.

 
LVL 5

Expert Comment

by:TheNeil
ID: 6244242
Simple solution I know, but if you play around with the Bevel properties then you can get it looking exactly how you want. All depends on what you're looking to do and how much work you want to put into it. Unless there's a component to do it then this might be the way you have to go

The Neil =:)
0
 
LVL 11

Expert Comment

by:robert_marquardt
ID: 6244305
I meant not adding a close box to a TreeView descendant.
0
 

Author Comment

by:bengore
ID: 6244396
Ok, I found there is no treeview style for "title with close button". See:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/shellcc/commctls/TreeView/Styles.asp

That means there is no API solution like SetWindowLong() (for what I was looking for).
Whom shall I give the points now?

0
 
LVL 11

Expert Comment

by:robert_marquardt
ID: 6244474
TheNeil of course. He answered first and directly to the problem.
0
 
LVL 5

Expert Comment

by:TheNeil
ID: 6244548
Thanks Robert (very generous of you). Hopefully I can do the same for you one day.

The Neil =:)
0

Featured Post

Master Your Team's Linux and Cloud Stack

Come see why top tech companies like Mailchimp and Media Temple use Linux Academy to build their employee training programs.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
Have you ever had your Delphi form/application just hanging while waiting for data to load? This is the article to read if you want to learn some things about adding threads for data loading in the background. First, I'll setup a general applica…
This Micro Tutorial will give you a basic overview how to record your screen with Microsoft Expression Encoder. This program is still free and open for the public to download. This will be demonstrated using Microsoft Expression Encoder 4.

810 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question