Оформление главной формы
На главную форму поместим компонент TPanel и установите следующие свойства:
|
Свойство |
Значение |
|
Align |
alTop |
|
Caption |
|
|
Name |
Panel |
Далее поместим компонент TTreeView и установите свойства как в таблице:
|
Свойство |
Значение |
|
Align |
alLeft |
|
Cursor |
crHandPoint |
|
HideSelection |
False |
|
HotTrack |
True |
|
Name |
TreeView |
|
ReadOnly |
True |
Правее TTreeView поместим TSplitter и установим следующие его свойства:
|
Свойство |
Значение |
|
Name |
Splitter |
|
Width |
5 |
И, наконец, помещаем компонент TListView еще правее TSplitter. Устанавливаем его свойства как в таблице:
|
Свойство |
Значение |
|
Align |
alClient |
|
ColumnClick |
False |
|
Cursor |
crHandPoint |
|
GridLines |
True |
|
HideSelection |
False |
|
HotTrack |
True |
|
Name |
ListView |
|
ReadOnly |
True |
|
RowSelect |
True |
|
ShowWorkAreas |
True |
|
ViewStyle |
vsReport |
На TPanel поместим кнопку TButton.
|
Свойство |
Значение |
|
Caption |
Refresh |
|
Name |
btRefresh |
Теперь мы готовы писать программу.
Пишем код
При старте нашей программы, желательно чтобы сразу заполнялся TreeView. В нем будут показаны модули Bluetooth и устройства, которые к ним подключены.
Для этого в обработчике OnCreate формы fmMain напишем такой код:
|
Code: |
|
procedure TfmMain.FormCreate(Sender: TObject); begin btRefresh.Click; end; |
Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.
ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!