Форум: "Основная";
Текущий архив: 2004.02.29;
Скачать: [xml.tar.bz2];
Вниз
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?
← →
Юрий Зотов (2004-02-10 21:34) [8]> 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]Супер! громадное спасибо!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.02.29;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.01 c