Текущий архив: 2002.05.30;
Скачать: CL | DM;

Вниз

кнопка   Найти похожие ветки 

← →
indigo   (2002-05-17 18:21) [0]

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

---

← →
eSKey   (2002-05-17 18:38) [1]

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

---

← →
indigo   (2002-05-18 17:32) [2]

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

---

← →
777 ©   (2002-05-18 21:42) [3]

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

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-19 17:42) [4]

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

---

← →
PaRL ©   (2002-05-19 20:41) [5]

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

---

← →
Malder ©   (2002-05-19 21:44) [6]

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

---

← →
Dinara ©   (2002-05-19 21:54) [7]

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

---

← →
777 ©   (2002-05-19 22:06) [8]

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

---

← →
Malder ©   (2002-05-19 23:20) [9]

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

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2002.05.30;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.012 c