CheckBox ики

← →
heady (2004-02-10 20:00) [0]

Hi, All! на форме есть несколько CheckBox подскажите pz где и как покрасивее проверять если ни одна не включена то ошибка...
Или попроще - нужно, чтобы один CheckBox активировался только в случае если включен другой - ГДЕ прописать проверку? еще вопрос - как передать фокус Edit"у? И последний - как в MessageDlg написать ссылку на мыло/сайт? я полный чайник, перехожу с TP7 :( Зарание благодарен.

← →
Семен Сорокин © (2004-02-10 20:02) [1]

на форме есть несколько CheckBox подскажите pz где и как покрасивее проверять если ни одна не включена то ошибка...
Components, ComponentCount
Или попроще - нужно, чтобы один CheckBox активировался только в случае если включен другой - ГДЕ прописать проверку?
на onClick
как передать фокус Edit"у?
SetFocus
как в MessageDlg написать ссылку на мыло/сайт?
сделать свой MessageDlg, обычно его "About" называют :)

← →
heady (2004-02-10 20:14) [2]

>как в MessageDlg написать ссылку на мыло/сайт?
>>сделать свой MessageDlg, обычно его "About" называют :)
а как сделать, чтобы ссылка выделилась и по ней можно было кликнуть?

>Или попроще - нужно, чтобы один CheckBox активировался только >в случае если включен другой - ГДЕ прописать проверку?
>>на onClick
а если мне нужно некой переменной задать НАЧАЛЬНОЕ значение - где это делать? где на дельфях находится что-нить типа головного begin"а на TP7?

>на форме есть несколько CheckBox подскажите pz где и как >покрасивее проверять если ни одна не включена то ошибка...
>>Components, ComponentCount
можно немного поподробней :( как узнать, что Ни один CheckBox внутри GroupBox"а не включен?

Огромное спасибо!

← →
Семен Сорокин © (2004-02-10 20:24) [3]

а как сделать, чтобы ссылка выделилась и по ней можно было кликнуть?
var
St : Array[0..255] of Char;
...
ShellExecute(fmAbout.Handle, "open", StrPCopy(St, lblWWW.Caption), nil, nil, SW_SHOW);
а если мне нужно некой переменной задать НАЧАЛЬНОЕ значение - где это делать?
на OnCreate формы
где на дельфях находится что-нить типа головного begin"а на TP7?
см. модуль DPR - там тоже есть главный begin
можно немного поподробней :( как узнать, что Ни один CheckBox внутри GroupBox"а не включен?
for _i := 0 to ComponentCount-1 do
if Components[_i] id TCheckBox then
if TCheckBox(Components[_i]).Checked then
// включен

настоятельно рекомендую начать с книжки.

← →
heady (2004-02-10 20:32) [4]

Спасибо! Пытаюсь учиться по Фаронову - тяжеловато...
Скажите - а с каком формате выгоднее выводить одиночную картинку (всмысле размера подключаемых модулей) и вообще очень бы хотелось уменьшить размер exe"шника а то получается, что никакая программа весит 500kb - не солидно как-то :)

← →
Юрий Зотов © (2004-02-10 20:35) [5]

> heady (10.02.04 20:14) [2]

> а как сделать, чтобы ссылка выделилась и по ней можно было
> кликнуть?

Ссылка - TLabel. Кликнуть - OnClick. Выделилась - обработка сообщений CM_MOUSEENTER и CM_MOUSELEAVE.

> Или попроще - нужно, чтобы один CheckBox активировался
> только в случае если включен другой - ГДЕ прописать проверку?

Можно в OnClick, можно в замещенном методе UpdateAction. Смотря, насколько сложна логика завязок. Если сложная - удобнее второе.

> если мне нужно некой переменной задать НАЧАЛЬНОЕ значение -
> где это делать?

При ее объявлении:
var
I: integer = 25;

> где на дельфях находится что-нить типа головного begin"а
> на TP7?

Там же, где и в TP - в головном файле программы. Он имеет расширение DPR (меню Project - View Source).

← →
DBM (2004-02-10 20:36) [6]

>как в MessageDlg написать ссылку на мыло/сайт?
>>сделать свой MessageDlg, обычно его "About" называют :)
а как сделать, чтобы ссылка выделилась и по ней можно было кликнуть?

ShellExecute(Application.Handle, Nil,
PChar("mailto: здесь вставить e-mail адрес?subject= здесь вставить "Тему" сообщения"),
Nil, Nil, SW_SHOWNORMAL);

А вообще настоятельно рекомендую начать с книжки. совершенно правильный совет.

← →
heady (2004-02-10 20:45) [7]

Громаднейшее спасибо!
самый последний вопрос :)

как узнать, что Ни один CheckBox внутри GroupBox"а не включен?
for _i := 0 to ComponentCount-1 do
if Components[_i] id TCheckBox then
if TCheckBox(Components[_i]).Checked then
// включен
а как организовать проверку именно в GroupBox?

> heady (10.02.04 20:45) [7]

with GroupBox1 do
for i := 0 to ControlCount - 1 do
if (Controls[i] is TCheckBox) and
TCheckBox(Controls[i]).Checked then ... // включен

← →
heady (2004-02-16 17:42) [9]

Супер! громадное спасибо!

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