Jerry_Pang
asked on
How to. create that (dunno what it is called) looks like a form splitter dunno.. click for more details
If you run explorer and click show the folders.
the explorer display split in two
the left window displays the folders, while the right windows displays the files
I like to create that in delphi but i dont know how or where to start.
Please guide me how to create that. a hello world sample perhaps
Hello on left window and world on the right window. at the same time it can be resize.
the explorer display split in two
the left window displays the folders, while the right windows displays the files
I like to create that in delphi but i dont know how or where to start.
Please guide me how to create that. a hello world sample perhaps
Hello on left window and world on the right window. at the same time it can be resize.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
This old style looking is awkward?
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, FileCtrl, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
Splitter1: TSplitter;
Panel2: TPanel;
DriveComboBox1: TDriveComboBox;
DirectoryListBox1: TDirectoryListBox;
FileListBox1: TFileListBox;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
end.
{------------------------- ----}
object Form1: TForm1
Left = 192
Top = 114
Width = 355
Height = 294
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Splitter1: TSplitter
Left = 185
Top = 0
Height = 260
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 185
Height = 260
Align = alLeft
TabOrder = 0
object Panel2: TPanel
Left = 1
Top = 1
Width = 183
Height = 41
Align = alTop
TabOrder = 0
object DriveComboBox1: TDriveComboBox
Left = 16
Top = 8
Width = 145
Height = 19
DirList = DirectoryListBox1
TabOrder = 0
end
end
object DirectoryListBox1: TDirectoryListBox
Left = 1
Top = 42
Width = 183
Height = 217
Align = alClient
FileList = FileListBox1
ItemHeight = 16
TabOrder = 1
end
end
object FileListBox1: TFileListBox
Left = 188
Top = 0
Width = 159
Height = 260
Align = alClient
ItemHeight = 13
TabOrder = 1
end
end
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, FileCtrl, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
Splitter1: TSplitter;
Panel2: TPanel;
DriveComboBox1: TDriveComboBox;
DirectoryListBox1: TDirectoryListBox;
FileListBox1: TFileListBox;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
end.
{-------------------------
object Form1: TForm1
Left = 192
Top = 114
Width = 355
Height = 294
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Splitter1: TSplitter
Left = 185
Top = 0
Height = 260
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 185
Height = 260
Align = alLeft
TabOrder = 0
object Panel2: TPanel
Left = 1
Top = 1
Width = 183
Height = 41
Align = alTop
TabOrder = 0
object DriveComboBox1: TDriveComboBox
Left = 16
Top = 8
Width = 145
Height = 19
DirList = DirectoryListBox1
TabOrder = 0
end
end
object DirectoryListBox1: TDirectoryListBox
Left = 1
Top = 42
Width = 183
Height = 217
Align = alClient
FileList = FileListBox1
ItemHeight = 16
TabOrder = 1
end
end
object FileListBox1: TFileListBox
Left = 188
Top = 0
Width = 159
Height = 260
Align = alClient
ItemHeight = 13
TabOrder = 1
end
end
TShellTreeView and TShellListView from the Samples palette:
unit Unit_Q_20963108;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ShellCtrls;
type
TForm1 = class(TForm)
stv: TShellTreeView;
slv: TShellListView;
private{ Private declarations }
public { Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
end.
//...................
object Form1: TForm1
Left = 216
Top = 114
Width = 600
Height = 440
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object stv: TShellTreeView
Left = 0
Top = 0
Width = 256
Height = 406
ObjectTypes = [otFolders]
Root = 'rfMyComputer'
ShellListView = slv
UseShellImages = True
Align = alLeft
AutoRefresh = False
Indent = 19
ParentColor = False
RightClickSelect = True
ShowRoot = False
TabOrder = 0
end
object slv: TShellListView
Left = 256
Top = 0
Width = 336
Height = 406
ObjectTypes = [otFolders, otNonFolders]
Root = 'rfMyComputer'
ShellTreeView = stv
Sorted = True
Align = alClient
ReadOnly = False
HideSelection = False
TabOrder = 1
ViewStyle = vsList
end
end
unit Unit_Q_20963108;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ShellCtrls;
type
TForm1 = class(TForm)
stv: TShellTreeView;
slv: TShellListView;
private{ Private declarations }
public { Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
end.
//...................
object Form1: TForm1
Left = 216
Top = 114
Width = 600
Height = 440
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object stv: TShellTreeView
Left = 0
Top = 0
Width = 256
Height = 406
ObjectTypes = [otFolders]
Root = 'rfMyComputer'
ShellListView = slv
UseShellImages = True
Align = alLeft
AutoRefresh = False
Indent = 19
ParentColor = False
RightClickSelect = True
ShowRoot = False
TabOrder = 0
end
object slv: TShellListView
Left = 256
Top = 0
Width = 336
Height = 406
ObjectTypes = [otFolders, otNonFolders]
Root = 'rfMyComputer'
ShellTreeView = stv
Sorted = True
Align = alClient
ReadOnly = False
HideSelection = False
TabOrder = 1
ViewStyle = vsList
end
end
ASKER
i am still a newbie to delphi. i could not understand the codes you gave yet. i will take a look at them later.
thanx mokule and esoftbg. I will study them later. im still at experimenting stage.
thanx
thanx mokule and esoftbg. I will study them later. im still at experimenting stage.
thanx
ASKER
i see. i think its called docable and flotable forms.
i ask a new question here.
https://www.experts-exchange.com/questions/20963205/How-to-create-Dockable-and-floatable-forms-that-can-be-pinnable-and-tabbed.html
i ask a new question here.
https://www.experts-exchange.com/questions/20963205/How-to-create-Dockable-and-floatable-forms-that-can-be-pinnable-and-tabbed.html
ASKER
thanx