Сообщений в теме: 3

[natali.ancharuk]

Здравствуйте!

Я тестирую delfi приложение.
У меня проблема как можно принять значение от созданного мной чекбокса на форме.
В справке написано создание диалогового окна, на форме с чеками и комбобоксами, а вот как от них принять значения нажат он или нет и продолжать действия в зависимости от значения.
От кнопки я знаю как принять, а вот как от чекбокса.
Текст в справке такой:

     CheckBox  9, 142, 62, 14, "List .TXT files", .CheckBox1 <----как принять значение от чекбокса?

Заранее спасибо!

[dziga]

У чекбокса есть свойство Checked. Нужно получить его значение с помощью функции SQAGetProperty.

[natali.ancharuk]

Ничего не получается. Текст такой:

Sub main
Dim result as integer
   Dim ComboBox1() as String
   Dim ListBox1() as String
   Dim DropListBox1() as String
   Dim x as Integer
   Dim C as integer
   ReDim ListBox1(0)
   ReDim ComboBox1(0)
   ReDim DropListBox1(3)
   ListBox1(0)="C:\"
   ComboBox1(0)=Dir("C:\*.*")
   For x=0 to 2
    DropListBox1(x)=Chr(65+x) & ":"
   Next x
   Begin Dialog UserDialog 274, 171, "SQABasic  Dialog Box"
      ButtonGroup .ButtonGroup1
      Text  9, 3, 69, 13, "Filename:", .Text1
      DropComboBox  9, 14, 81, 119, ComboBox1(), .ComboBox1
      Text  106, 2, 34, 9, "Directory:", .Text2
      ListBox  106, 12, 83, 39, ListBox1(), .ListBox2
      Text  106, 52, 42, 8, "Drive:", .Text3
      DropListBox  106, 64, 95, 44, DropListBox1(), .DropListBox1
      CheckBox  9, 142, 62, 14, "List .TXT files", .CheckBox1  <---------??????
      GroupBox  106, 111, 97, 57, "File Range"
      OptionGroup .OptionGroup2
         OptionButton  117, 119, 46, 12, "All pages", .OptionButton3
         OptionButton  117, 135, 67, 8, "Range of pages", .OptionButton4
      Text  123, 146, 20, 10, "From:", .Text6
      Text  161, 146, 14, 9, "To:", .Text7
      TextBox  177, 146, 13, 12, .TextBox4
      TextBox  145, 146, 12, 11, .TextBox5
      OKButton  213, 6, 54, 14
      CancelButton  214, 26, 54, 14
      PushButton 213, 52, 54, 14, "Help", .Push1
   End Dialog 
   Dim mydialog as UserDialog
   On Error Resume Next
   Dialog mydialog
   If Err=102 then
      MsgBox "Dialog box canceled."
   End If
result=sqagetproperty("Type=CheckBox1","State", C) <------значение С = 0
msgbox C
End Sub

Вы наверное не поняли, мне необходимо принять значение от созданных мною объектов.

[marsi]

CheckBox 9, 142, 62, 14, "List .TXT files", .CheckBox1

позвольте заметить, что последним параметром данной инструкции выступает переменная в которую будет возвращено состояние Checkbox'a.

так что осмелюсь предположить, что по закрытии диалога, тоесть после нажатия кнопки OKButton, значение Checkbox'а можно получить используя следующую конструкцию:

'зная что Dim mydialog as UserDialog

CheckBoxValue = mydialog.CheckBox1