TObject.Visible

[)Игнат(]

Как сделать так, чтоб по окончанию события onMouseMove Visible := true?

[Карась]

TObject - класс. Что ты от нево хочешь?

Как сделать так, чтоб по окончанию события onMouseMove Visible := true?

Все события связанны с обьектами.
Свойство Visible опятьже относится к обьекту.

Задавай вопросы правильно, читай книжки...
Нереально дать нормальный ответ на твой вопрос потому что ты сам непонял что спросил....

[)Игнат(]

Я имел ввиду любой объект: кнопка, форма и.т.д

[Лубышев]

Я понял его, типа навел мышь на обьект у него сменилось свойство. убрал опять же сменилось
Меня тоже интересует, как свойства менять не на OnMouseMove а когда мышь уводишь с обьекта.

[pu4koff]

Button1.Show
Button1.Visible := true;

например у TLabel есть события OnMouseEnter (При наведении мыши на лэйбл) и OnMouseLeave (МЫшка ушла с лэйбла)
если нужна обработка для другого контрола, а у него события такого нет, то или контрол под свои нужды править, или искать другой какой-то выход

[Лубышев]

Тоесть для других объектов нет события убирания мышки с объекта?

[mihali4]

Читал, читал, так и не понял, о чем речь...
На всякий случай (вдруг попал?):

  private
    { Private declarations }
    procedure ImCloserWindowProc(var Msg: TMessage);
var
  OldCloseWindowProc: TWndMethod;

procedure Tfmain.FormCreate(Sender: TObject);
begin
...
OldCloseWindowProc:=ImCloser.WindowProc;
ImCloser.WindowProc:=ImCloserWindowProc;
ImCloser.Perform(CM_MOUSELEAVE,0,0);
OldMinimWindowProc:=ImMini.WindowProc;
...
end;

procedure Tfmain.ImCloserWindowProc(var Msg: TMessage);
begin
case msg.Msg of
CM_MOUSELEAVE:
begin
if imclose<>0 then
begin
MyJpeg := LoadJpegRes('CLOSEOFF'); // имеется в виду загрузка из ресурсов
ImCloser.Canvas.Draw(0, 0, MyJpeg);
imclose:=0;
end;
end;
CM_MOUSEENTER:
begin
if imclose<>1 then
begin
MyJpeg := LoadJpegRes('CLOSEON');
ImCloser.Canvas.Draw(0, 0, MyJpeg);
imclose:=1;
end;
end;
end;
OldCloseWindowProc(Msg);
end;

Работает безотказно. Единственная "бяка" - для каждого компонента все свое... Пытался объединить - не получилось... Может, кто-нибудь сталкивался с сией "промблемой"?

[Никки]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
        Label1.Font.Color:=clRed;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
        Label1.Font.Color:=clBlack;
end;

end.

положи на форму TLabel и сделай в нем шрифт покрупнее!! При наведении мыши на текст он станет красным при уберании мыши снова станет чёрным!! изменяй так любые свойства!

[Никки]

А вот в JavaScript есть специальные события OnMouseOver и OnMouseOut и нет никаких проблем...

[Лубышев]

А универсального события для различных объектов нет?
Противоположного OnMouseMove? Часто с этим сталкиваюсь.
Я находил выход через таймер. но работает как то криво.
Типо при наведение свойство Tag изменялось на 1 а таймер назад возвращал 0.
Есть другой вариант. Он бы работал лучше.
Как проверить наведен ли на объект курсор мыши, и если нет ,то вернуть или изменить ...