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

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

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

Запретить визуальному компоненту получение фокуса

Kostafey © (2007-04-23 22:08:00)
Уважаемые Мастера!
Подскажите пожалуйста как запретить компоненту DBEdit получать фокус будь по
при щелчке на него мышью или нажимая tab.
ReadOnly:=true, но этого не достаточно нужно именно запретить возможность
появления курсора в строке редактирования.

Kostafey (2007-04-23 23:54:00) [1]
<offtop>
- Привет, как дела?
- Да вот, вчера установил у себя беспроводную радиосеть Wi-Fi...
- И что?
- И ничего... И ничего... И ничего... И ничего...
</offtop>

Вот нифига не смешно !

Kostafey (2007-04-23 23:46:00) [2]
Да, все перепробовал !
Все работает !

Только при программыном переносе кнопки на панель
(как в примере) при нажатии кнопки не работает анимация.
Но других спсобов предостаточно !

Спасибо Вам !

Kostafey (2007-04-23 23:44:00) [3]
Чертов WIFI

{RASkov} (2007-04-23 22:44:00) [4]
> var L, T: Integer;
> begin
> L:=Button.Left; T:=Button.Top;
> Button.Parent:=<Form>;
> Button.BringToFront;
> Button.Left:=Panel1.Left+L;
> Button.Top:=Panel1.Top+T;
> end;
>
> Конечно это можно все и в дизайнере сделать....

Изначально кнопка на панели....

{RASkov} (2007-04-23 22:42:00) [5]
> [4] Kostafey © (23.04.07 22:35)

:) Пофантазируй....
Сделай вид ей что она на панели, а сама пусть на форме лежит :) Вот пример:

var L, T: Integer;
begin
L:=Button.Left; T:=Button.Top;
Button.Parent:=Self;
Button.BringToFront;
Button.Left:=Panel1.Left+L;
Button.Top:=Panel1.Top+T;
end;

Конечно это можно все и в дизайнере сделать.... или как вариант разные паренты - подложи под DBEdit Панельку размером с DBEdit и пусть она ему парентом будет ну а дальше ты понял... :)

Kostafey (2007-04-23 22:35:00) [6]
> НЕ DBEdit.Enabled:=False;, а, например, Panel1.Enabled:=False;
> С условием, что DBEdit лежит на Panel1

А, да здорово, спасибо.

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

{RASkov} (2007-04-23 22:30:00) [7]
> [2] Kostafey © (23.04.07 22:16)

НЕ DBEdit.Enabled:=False;, а, например, Panel1.Enabled:=False; С условием, что DBEdit лежит на Panel1.....
Есть и еще варианты, но этот самый простой.

Kostafey (2007-04-23 22:16:00) [8]
> Его(DBEdit) Parent'у выставь Enabled=False;

А как цвет текста у него в этом случае вернуть в черный?

{RASkov} (2007-04-23 22:12:00) [9]
Его(DBEdit) Parent'у выставь Enabled=False;

Наверх

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