Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
7-97442
TALLA
2002-03-03 14:37
2002.05.30
Эмуляция клика/двойного клика на любом приложении


3-97148
Belov
2002-05-06 17:14
2002.05.30
Как получить список доступных MS SQL серверов


3-97197
Tools
2002-05-08 10:05
2002.05.30
CrossPlatform Database


1-97332
Rooman
2002-05-19 09:06
2002.05.30
Как использовать ListView для отображения >100000 строк?


3-97115
VICTOR_
2002-05-10 16:30
2002.05.30
Проблема с LANGUAGE DRIVER в PARADOX





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский