Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.01.16;
Скачать: CL | DM;

Вниз

Inifiles   Найти похожие ветки 

 
Narik ©   (2004-12-26 04:13) [0]

Как записать и извлекать с ini CheckBox???


 
Fay ©   (2004-12-26 04:39) [1]

Чё?


 
KilkennyCat ©   (2004-12-26 04:48) [2]

легко.

объявлям  Ini: TIniFile;
создаем инифайл Ini := TIniFile.Create("checkbox1.ini");
внуТРУ пишем параметры, характеризирующие ческобох (используя WriteInteger, WriteString и проч):
Action
Align
AlignDisabled
Alignment
AllowGrayed
Anchors
BiDiMode
BoundsRect
Brush
Caption
Checked
ClientHeight
ClientOrigin
ClientRect
ClientWidth
Color
ComObject
ComponentCount
ComponentIndex
Components
ComponentState
ComponentStyle
Constraints
ControlCount
Controls
ControlState
ControlStyle
Ctl3D
Cursor
DesignInfo
DockClientCount
DockClients
DockOrientation
DoubleBuffered
DragCursor
DragKind
DragMode
Enabled
Floating
FloatingDockSiteClass
Font
Handle
Height
HelpContext
HelpKeyword
HelpType
Hint
HostDockSite
Left
LRDockWidth
Name
Owner
Parent
ParentBiDiMode
ParentColor
ParentCtl3D
ParentFont
ParentShowHint
ParentWindow
PopupMenu
ShowHint
Showing
State
TabOrder
TabStop
Tag
TBDockHeight
Top
UndockHeight
UndockWidth
VCLComObject
Visible
VisibleDockClientCount
Width
WindowProc

извлекать почти также.


 
begin...end ©   (2004-12-26 11:40) [3]

> Narik ©   (26.12.04 04:13)

> Как записать и извлекать с ini CheckBox???

Может быть, нужно записывать в ini-файл просто состояние CheckBox"а - отмечен / не отмечен? Тогда записывайте в файл значение свойства Checked.

Пример записи:

begin
with TIniFile.Create("c:\file.ini") do
 try
   WriteBool("CheckBox", "Checked", MyCheckBox.Checked)
 finally
   Free
 end
end.


Пример чтения:

begin
with TIniFile.Create("c:\file.ini") do
 try
   MyCheckBox.Checked := ReadBool("CheckBox", "Checked", False)
 finally
   Free
 end
end.



Страницы: 1 вся ветка

Текущий архив: 2005.01.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
11-1085323713
RTWolf
2004-05-23 18:48
2005.01.16
Можно ли как-то заскриншотить невидимый контрол?


1-1104661808
Vasiliy
2005-01-02 13:30
2005.01.16
tbx и toolbar2000


4-1101555113
Djo
2004-11-27 14:31
2005.01.16
работа с программами


1-1104150683
lm2
2004-12-27 15:31
2005.01.16
TService + запуск программы


4-1101717711
NazGul
2004-11-29 11:41
2005.01.16
Как добавить новый сервис Winsows NT&?