Difference between revisions of "Shell Controls/ru"
From Lazarus wiki
Jump to navigationJump to searchm (Опечатка) |
m (Text replace - "delphi>" to "syntaxhighlight>") |
||
Line 12: | Line 12: | ||
<div>[[Image:Form1 220.png]]</div> | <div>[[Image:Form1 220.png]]</div> | ||
А лучше сделать текстовым способом. | А лучше сделать текстовым способом. | ||
− | < | + | <syntaxhighlight>procedure TForm1.FormCreate(Sender: TObject); |
begin | begin | ||
ShellTreeView2:= TShellTreeView.create(Form1); | ShellTreeView2:= TShellTreeView.create(Form1); | ||
Line 20: | Line 20: | ||
ShellTreeView2.Height:=430; | ShellTreeView2.Height:=430; | ||
ShellTreeView2.Parent:=Form1; | ShellTreeView2.Parent:=Form1; | ||
− | end; </ | + | end; </syntaxhighlight> |
<div>[[Image:Form1 222.png]]</div> | <div>[[Image:Form1 222.png]]</div> | ||
Mihail Chichkanov | Mihail Chichkanov |
Revision as of 14:57, 24 March 2012
│
English (en) │
русский (ru) │
TShellTreeView
Компонент TShellTreeView находится на вкладке Misc.
Свойства компонента TShellTreeView.
Добавим компонент TShellListView. Соответственно укажем эти компоненты в свойствах друг друга.
Запустим программу. В Linux отображается корневой каталог.
А лучше сделать текстовым способом.
procedure TForm1.FormCreate(Sender: TObject);
begin
ShellTreeView2:= TShellTreeView.create(Form1);
ShellTreeView2.Left:=10;
ShellTreeView2.Top:=10;
ShellTreeView2.Width:=250;
ShellTreeView2.Height:=430;
ShellTreeView2.Parent:=Form1;
end;
Mihail Chichkanov