OnMouseMove

[yaroslav2468]

Хочу сделать картинку, при наведении на какую будет всплывать другая картинка.как бы hover в css.только как именно? какую команду писать? имееться 2 image..

[-Jack-]

Если хочешь реализовать по аналогии с CSS, то вопрос, как у тебя будут расположены эти 2 TImage ?

Если один на другом, то прописывай события OnMouseEnter и OnMouseLeave и видимостью 2 TImage

Image1.Visible:= true
Image2.Visible:= false

Или 2 TIMage заменить на один и при наведение на него курсором грузить одну картинку.

Image1.Picture.LoadFromFile('путь к картинке');

[yaroslav2468]

Сообщение от -Jack-

Если хочешь реализовать по аналогии с CSS, то вопрос, как у тебя будут расположены эти 2 TImage ?

Если один на другом, то прописывай события OnMouseEnter и OnMouseLeave и видимостью 2 TImage

Image1.Visible:= true
Image2.Visible:= false

Или 2 TIMage заменить на один и при наведение на него курсором грузить одну картинку.

Image1.Picture.LoadFromFile('путь к картинке');

Да именно одно на другом) они будут как кнопки)

а куда именно прописывать..в 2 или в 1?

OnMouseEnter и OnMouseLeave

нету таких событий в Image

[northener]

Сообщение от yaroslav2468

нету таких событий в Image

Для батонокидателей их действительно нету.
Для "продвинутых юзеров первого уровня" (копирайт не мой) эти события есть у предка и их легко задействовать.
Вот пример:

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    Image1: TImage;
    procedure MyImageMouseEnter(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

type
  TMyImage = class(TImage);

procedure TForm3.FormCreate(Sender: TObject);
begin
  TMyImage(Image1).OnMouseEnter:=MyImageMouseEnter;
end;

procedure TForm3.MyImageMouseEnter(Sender: TObject);
begin
  ShowMessage('MyImageMouseEnter');
end;

end.

P.S.
Уже второй раз (за небольшой срок) встречаю на сём форуме фразу "У имярек нет таких событий/методов/свойств" и т.п. И все в ответ молчат. (((
Неужели на данном ресурсе нет в FAQ'е ответа на вопрос "Как можно получить доступ к protected свойству класса?

P.P.S. И не надо мне "плюсовать" за этот ответ. Это решение я не придумал сам. Я его прочитал на том диске, с которого когда-то поставил себе пиратскую версию Д1

[yaroslav2468]

ну ничего не понимаю...мой код

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Image1: TImage;
Image2: TImage;
procedure Image2MouseEnter(Sender: TObject);
procedure Image2MouseLeave(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Image2MouseEnter(Sender: TObject);
begin
Image1.Visible:= true
Image2.Visible:= false
end;

procedure TForm1.Image2MouseLeave(Sender: TObject);
begin
Image1.Visible:= true
Image2.Visible:= false
end;

end.

[Stilet]

Ну а ты точки прерывания ставил в методы? Они вообще срабатывают?

[northener]

Сообщение от yaroslav2468

ну ничего не понимаю...мой код

Неправильный. Ибо при заходе мыши на Image2 срабатывает событие Image2MouseEnter, в котором выполняется строка Image2.Visible:= false. А при этом срабатывает событие Image2MouseLeave.

Т.е. событие MouseEnter нужно прописать той картинке, которая изначально видна. А событие MouseLeave нужно прописать другой картинке.

[yaroslav2468]

Сообщение от northener

Неправильный. Ибо при заходе мыши на Image2 срабатывает событие Image2MouseEnter, в котором выполняется строка Image2.Visible:= false. А при этом срабатывает событие Image2MouseLeave.

Т.е. событие MouseEnter нужно прописать той картинке, которая изначально видна. А событие MouseLeave нужно прописать другой картинке.

да он вобще не компилируется
может кто то подкинет код а я его под себя подредактирую..) ну пожалуйста)

[northener]

Сообщение от yaroslav2468

да он вобще не компилируется

Ёпстыть!
А я то думал что "точки с запятой" в конце каждой строчки кода (кроме последней разумеется) пропущены только из-за лени или из-за желания сохранить подушечки пальцев.
Других причин ошибок компиляции на вскидку не вижу.

[northener]

Да. Ну и.
Какой версией Дельфи располагаете?
Если ниже Д2005, то вам стоит воспользоваться моим кодом "Вчера, 02:52 ".