Форум: "Основная";
Текущий архив: 2002.05.30;
Скачать: [xml.tar.bz2];
Вниз
кнопка Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.004 c
