Difference between revisions of "Shell Controls/ru"
From Lazarus wiki
Jump to navigationJump to searchm (Text replace - "delphi>" to "syntaxhighlight>") |
m (Fixed syntax highlighting; deleted category included in page template) |
||
| (One intermediate revision by one other user not shown) | |||
| Line 12: | Line 12: | ||
<div>[[Image:Form1 220.png]]</div> | <div>[[Image:Form1 220.png]]</div> | ||
А лучше сделать текстовым способом. | А лучше сделать текстовым способом. | ||
| − | <syntaxhighlight>procedure TForm1.FormCreate(Sender: TObject); | + | <syntaxhighlight lang=pascal>procedure TForm1.FormCreate(Sender: TObject); |
begin | begin | ||
ShellTreeView2:= TShellTreeView.create(Form1); | ShellTreeView2:= TShellTreeView.create(Form1); | ||
| Line 22: | Line 22: | ||
end; </syntaxhighlight> | end; </syntaxhighlight> | ||
<div>[[Image:Form1 222.png]]</div> | <div>[[Image:Form1 222.png]]</div> | ||
| − | |||
| − | |||
Latest revision as of 12:44, 26 February 2020
│
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;
