Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как убрать или спрятать кнопку на InputBox? [D6, WinXP]

kukuikar © (2004-08-20 15:11:00)
Пробю так:
procedureTForm1.InputBoxSetPasswordChar( varMsg: TMessage); var hInputForm, hEdit, hButton: HWND; begin hInputForm := Screen.Forms[0].Handle; if(hInputForm <> 0) then begin hEdit := FindWindowEx(hInputForm, 0, 'TEdit', nil); hButton := FindWindowEx(hInputForm, 0, 'TButton', nil); <color = red> SendMessage(hButton, BN_DISABLE, 0, 0);</color> SendMessage(hEdit, EM_SETPASSWORDCHAR, Ord('*'), 0); end; end;
Не работает.
В чем фишка.
Спасибо заранее....

kukuikar (2004-08-20 16:32:00) [1]
EnableWindow(hButton, false) помогло.
Огромное спасибо.
Вы помогаете уже не впервый раз:))))))))))))

kukuikar (2004-08-20 16:32:00) [2]
Удалено модератором
Примечание: Дубль

Игорь Шевченко (2004-08-20 16:28:00) [3]
Вот это уже конструктивный диалог.

> А ведь если вместо строки:
> SendMessage(hButton, BN_DISABLE, 0, 0)
> вставить строку:
> SendMessage(hEdit, EM_SETPASSWORDCHAR, Ord('*'), 0)
> то все работает.
> Интересно почему EM_SETPASSWORDCHAR работает, а
> BN_DISABLE нет.

Потому что BN_DISABLE - это нотификация, а не сигнал к действию.

EnableWindow (hButton, false) не поможет ?

kukuikar (2004-08-20 16:23:00) [4]
Уважаемый Игорь.
Нижайше прошу прощения за глупость которую я принес в Вамш форум.
Каим я был глупым. А ведь если вместо строки:
SendMessage(hButton, BN_DISABLE, 0, 0)
вставить строку:
SendMessage(hEdit, EM_SETPASSWORDCHAR, Ord('*'), 0)
то все работает.
Интересно почему EM_SETPASSWORDCHARработает, а
BN_DISABLEнет.
Я конечно тупой и опыта у меня нет. Извините конечно, но если Вы такой опытный почему бы Вам не помочь и не указать бы на мою ошибку? Ведь Вам, программерам с большим опытом....
да ладно.........................................
Спасибо.

Игорь Шевченко (2004-08-20 16:14:00) [5]
kukuikar (20.08.04 16:02) [3]

> А где же ответ?

По-моему, в [1] был явно дан ответ на вопрос, в чем фишка.

> В чем же мое неуважение к окружающим,

В том, что они должны выполнить проверку на ошибки, которую не желает делать автор вопроса, для этого им нужно перенести к себе часть кода, создать проект, добиться его аналогичной ошибки и найти причину. Дальше продолжать ?

kukuikar (2004-08-20 16:02:00) [6]
В чем же мое неуважение к окружающим,
уважаемый г-н Шевченко?
Если вы намекаете на авторство кода, то я и не утверждаю что это я его автор. Взял я его из проекта DelphiWorld 6.0.
И не скрываю этого.

kukuikar (2004-08-20 15:59:00) [7]
А где же ответ?
Ответивший есть а ответа нет!?

Игорь Шевченко (2004-08-20 15:55:00) [8]

> В чем фишка.

В отсутствии проверки на ошибки, в первую очередь.
В неуважении к окружающим - во вторую.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »