| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

кнопка

indigo ©   (2002-05-17 18:21:00) 

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

---

Malder   (2002-05-19 23:20:00) [1]

Dinara, ну хорошо, убери из примера:

procedure Register;
begin
RegisterComponents("777", [TMybutton]);
end;

Дело не в этом. Все равно нужно создавать наследника TButton

---

777   (2002-05-19 22:06:00) [2]

2 Dinara © согласен, компонент не нужен, просто так
проще показать на примере по моему :)

---

Dinara   (2002-05-19 21:54:00) [3]

Malder, свой компонент совершенно для этого не нужен.

---

Malder   (2002-05-19 21:44:00) [4]

PaRL, у тебя есть другие предложения ?!

---

PaRL   (2002-05-19 20:41:00) [5]

Это ты что ради этого MouseMove свой компонент сделал чтоли? Мороки то...

---

indigo   (2002-05-19 17:42:00) [6]

ОГРОМНОЕ СПАСИБО 777

---

777   (2002-05-18 21:42:00) [7]

что может быть проще?

unit Mybutton;

interface

uses
Windows, Messages, SysUtils, Classes, Controls, StdCtrls;

type
TMybutton = class(tbutton)
private
FOnMouseLeave: TNotifyEvent;
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
{ Published declarations }
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents("777", [TMybutton]);
end;
procedure TMyButton.CMMouseLeave(var Message: TMessage);
begin
inherited;
if Assigned(FOnMouseLeave) then
FOnMouseLeave(Self);
end;

end.

используем:

procedure TForm1.Mybutton1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Mybutton1.caption:="Move";
end;

procedure TForm1.Mybutton1MouseLeave(Sender: TObject);
begin
Mybutton1.caption:="Leave";
end;


---

indigo   (2002-05-18 17:32:00) [8]

но когда я уберу мышь с кнопки ее название не возвращается а остается таким каким оно было в onmousemove

---

eSKey   (2002-05-17 18:38:00) [9]

OnMouseMove и хелп спасет отца русской демократии?

---

Наверх