здравствуйте уважаемые мастера

← →
223001 (2008-05-04 19:44) [0]

как изменить курсор на кнопке если она enabled:=false. кнопка отчистить я написал edit1.text:=""; button1.enabled:=false; button1.cursor:=crnotdrop; а в edit1keypres написал button1.cursor:=crhandpoint; button1.enabled:=true; но пока не действует курсор не меняется

← →
Evil (2008-05-04 19:55) [1]

procedure TMainForm.Edit1Change(Sender: TObject);
begin
if Length(edit1.Text) > 0 then
begin
button1.Enabled := true;
button1.cursor:=crhandpoint;
end;
end;

procedure TMainForm.Button1Click(Sender: TObject);
begin
edit1.clear;
button1.enabled:=false;
button1.cursor:= crNoDrop;
end;

← →
223001 (2008-05-04 20:02) [2]

я пробовал но строчку button1.cursor:=crnotdrop; он как бы не видит

← →
No_Dead © (2008-05-04 20:03) [3]

> [1] Evil (04.05.08 19:55)

разве меняет?:)

← →
Восхищенный (2008-05-04 20:06) [4]

Это не "он строчку не видит", это задизабленное окно кнопки сообщения WM_SETCURSOR не получает. Поэтому и курсор не меняется. Стандарт Windows, трогать его незачем.

← →
223001 (2008-05-04 20:06) [5]

не знаю я уже весь день на эту кнопку убил всё перепробовал а курсор не меняется :(

← →
Восхищенный (2008-05-04 20:14) [6]

> 223001 (04.05.08 20:06) [5]

И не изменится, даже если еще три дня убъешь.

Можно применить разные извращенные способы (типа прозрачного окна над кнопкой, или хука), но незачем.

← →
223001 (2008-05-04 20:14) [7]

но когда я в edit ввожу данные и он становится enabled:=true то курсор меняется

← →
Восхищенный (2008-05-04 20:16) [8]

> 223001 (04.05.08 20:14) [7]

Странно, да? Оказывается, незадизабленные окна сообщение WM_SETCURSOR получают. И кто бы мог подумать?

← →
Evil (2008-05-04 20:16) [9]

> 223001 (04.05.08 19:44)
> как изменить курсор на кнопке если она enabled:=false

Попробуем объяснить на пальцах:

Если она false, то все события для нее тоже false.
В том числе и изменение курсора мыши на ней.
Нес па?

здравствуйте уважаемые мастера Найти похожие ветки