Вопрос по процедуре Delphi

[Evgenii]

Какая процедура нужна для того чтобы после нажатия кнопки, она становилась неактивной (т.е. ее видно по прежнему, но нажать повторно на нее нельзя)?

[mihali4]

А вы посмотрите в хэлпе, какие у кнопки есть свойства. По-моему, ENABLED именно то, что вам нужно...
Не манкируйте хэлпом - он весьма хорош и даст ответы на 90% ваших вопросов. Единственное условие - самому представлять, что именно вам нужно получить в результате.
А процедуру вы уже назвали - обработчик нажатия на кнопку. И там нужно просто присвоить свойству нужное значение.

[Evgenii]

нет, при enabled она совсем исчезает, visible и hint тоже не подходят. они полностью скрывают кнопку, а мне нужно чтобы она была видна
Хотя, enabled-правда делает кнопку неактивной. Меня сбило с толку что на моей кнопке рисунок, который пропадает при использовании этой процедуры. Из-за этого возникла неясность
Можно ли как-то использовать enabled без потери картинки на кнопке?

[AndrzejX]

Используй какой-нибудь признак того, что кнопка нажималась, например, свойство кнопки Tag, и в зависимости от него выполняй обработчик. Enabled при этом не нужно.

[Шульц]

Сделай картинку в два раза больше. То есть если у тебя есть папка 17х17, то сделай рисунок 34х17 с двумя одинаковыми чайниками, на спидботонах работает вроде.

[Evgenii]

Сделай картинку в два раза больше. То есть если у тебя есть папка 17х17, то сделай рисунок 34х17 с двумя одинаковыми чайниками, на спидботонах работает вроде.

Чтото я не совсем понял такой вариант. Можно как-нибудь доступней объяснить?

[Kotofff]

Сообщение от Evgenii

Какая процедура нужна для того чтобы после нажатия кнопки, она становилась неактивной (т.е. ее видно по прежнему, но нажать повторно на нее нельзя)?

Исходя из Вашего вопроса пост #2 - это исчерпывающий ответ. Свойство Enable в значении false красит контрол в серый цвет и делает неактивной - нажать нельзя ... исчезать кнопка не может в этом !

[Квэнди]

нет, при enabled она совсем исчезает

врете вы все.
Где вы нашли здесь убирание видимости компонента?

procedure TWinControl.CMEnabledChanged(var Message: TMessage);
begin
  if not Enabled and (Parent <> nil) then RemoveFocus(False);
  if HandleAllocated and not (csDesigning in ComponentState) then
    EnableWindow(WindowHandle, Enabled);
end;
.....
function EnableWindow; external user32 name 'EnableWindow';

[Evgenii]

я имел ввиду что исчезает картинка

[начинающий кодер]

привяжи к кнопке 2 изображения! когда доступна и когда нет и будет тебе счастье