Красивые кнопки

[PaHaNjkee]

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

Да да да... Что-то вроде такого я имел ввиду...Спасибо за проект А картинку при наведении курсором также делается?

В OnMouseMove при наведении меняется

[northener]

Если Дельфи старше Д7, то не надо OnMouseMove. Зачем лишние телодвижения? Лучше OnMouseEnter/OnMouseLeave. Они как раз для подобных действий.

[kion3]

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

В OnMouseMove при наведении меняется

Блин что делать....не ставиться в окне инспекторов в событиях OnMouseMove.
Код прописывал такой же, ну только поменял на OnMouseMove

[northener]

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

Блин что делать....не ставиться в окне инспекторов в событиях OnMouseMove.
Код прописывал такой же, ну только поменял на OnMouseMove

1.

type TMouseEvent = procedure (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer) of object;
property OnMouseDown: TMouseEvent;

2.

type TMouseMoveEvent = procedure(Sender: TObject; Shift: TShiftState; X, Y: Integer) of object;
property OnMouseMove: TMouseMoveEvent;

Как говорится почувствуйте разницу.

[kion3]

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

Как говорится почувствуйте разницу.

Угу, но мне немного не такой код показали:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
bmp.LoadFromFile(ExtractFilePath(Pa ramStr(0))+'нажатие.bmp');
Image1.Picture := bmp;
end;

Я прописал такое же, только за место Image1MouseDown поставил Image1MouseMove. Ну и далее не получалось..скриншот скидывал
В type прописал, то что вы скинули - не работает. Ошибки типо на "=", "but".

[kion3]

А всё стоп. Проблема с MouseMove решилась. Теперь новая возникла.
Я навожу курсор на кнопку и в ней как я и хотел меняется картинка, но затем я курсор от неё снова отвожу - и картинка на её первичное состояние (то что было прописано в Image1MouseUp) не поменялась, а так и осталась на Image1MouseMove. Что нужно сделать, чтобы когда я курсор обратно отводил - она ставило картинку по умолчанию (MouseUp)?

[XE5]

kion3 Собственно а чем не устраивают готовые BitBtn, PngBitBtn? Садо-мазо приносит больше удовольствия?

[kion3]

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

kion3 Собственно а чем не устраивают готовые BitBtn, PngBitBtn? Садо-мазо приносит больше удовольствия?

Да нет....просто ценю дизайн программы также как и её функциональность

[northener]

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

А всё стоп. Проблема с MouseMove решилась. Теперь новая возникла.
Я навожу курсор на кнопку и в ней как я и хотел меняется картинка, но затем я курсор от неё снова отвожу - и картинка на её первичное состояние (то что было прописано в Image1MouseUp) не поменялась, а так и осталась на Image1MouseMove. Что нужно сделать, чтобы когда я курсор обратно отводил - она ставило картинку по умолчанию (MouseUp)?

Поэтому я и говорил о OnMouseEnter/OnMouseLeave. Они для подобной цели подходят как нельзя лучше.

[XE5]

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

Да нет....просто ценю дизайн программы также как и её функциональность

Я всё равно не понимаю, чем не устраивает BitBtn. Окантовка кнопки есть, надпись есть, иконка есть. Чего не хватает для счастья???