Скачать: CL | DM;

Как убрать или спрятать кнопку на InputBox?   Найти похожие ветки 

← →
kukuikar   (2004-08-20 15:11) [0]

Пробю так:

procedure TForm1.InputBoxSetPasswordChar(var Msg: 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;

Не работает.
В чем фишка.
Спасибо заранее....

---

← →
Игорь Шевченко ©   (2004-08-20 15:55) [1]

> В чем фишка.


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

---

← →
kukuikar   (2004-08-20 15:59) [2]

А где же ответ?
Ответивший есть а ответа нет!?

---

← →
kukuikar   (2004-08-20 16:02) [3]

В чем же мое неуважение к окружающим,
уважаемый г-н Шевченко?
Если вы намекаете на авторство кода, то я и не утверждаю что это я его автор. Взял я его из проекта DelphiWorld 6.0.
И не скрываю этого.

---

← →
Игорь Шевченко ©   (2004-08-20 16:14) [4]

kukuikar   (20.08.04 16:02) [3]


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


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


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


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

---

← →
kukuikar   (2004-08-20 16:23) [5]

Уважаемый Игорь.
Нижайше прошу прощения за глупость которую я принес в Вамш форум.
Каим я был глупым. А ведь если вместо строки:
SendMessage(hButton, BN_DISABLE, 0, 0)
вставить строку:
SendMessage(hEdit, EM_SETPASSWORDCHAR, Ord("*"), 0)
то все работает.
Интересно почему EM_SETPASSWORDCHAR работает, а
BN_DISABLE нет.
Я конечно тупой и опыта у меня нет. Извините конечно, но если Вы такой опытный почему бы Вам не помочь и не указать бы на мою ошибку? Ведь Вам, программерам с большим опытом....
да ладно.........................................
Спасибо.

---

← →
Игорь Шевченко ©   (2004-08-20 16:28) [6]

Вот это уже конструктивный диалог.


> А ведь если вместо строки:
> 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:32) [7]

EnableWindow(hButton, false) помогло.
Огромное спасибо.
Вы помогаете уже не впервый раз:))))))))))))

---

← →
kukuikar   (2004-08-20 16:32) [8]

Удалено модератором
Примечание: Дубль

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.022 c