Кнопка из картинок

[qwerty55]

Я сделал 3 картинки (обычное состояние, при наведении и нажатии). Прописал вот так:

procedure TForm1.Image1Click(Sender: TObject);
begin
Image1.Picture.LoadFromFile('3.png' ); //эта картинка не срабатывает
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Image1.Picture.LoadFromFile('2.png' );
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Image1.Picture.LoadFromFile('1.png' );
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Picture.LoadFromFile('1.png' );
end;

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

[Alex Cones]

Прекратите извращаться над изображениями! При создании формы загрузите их в TBitMap и рисуйте его.

[qwerty55]

а поподробнее можно...?

[Alex Cones]

Поиск по форуму никто не отменял.

Var
Bit:TBitMap;
Begin
Bit:=TBitMap.Create;
Bit.LoadFromFile(bla-bla-bla);
Image1.Canvas.Draw(0,0,Bit);

...
TForm1.OnDestroy:
Bit.Free;

[russian-stalker]

Ваша картинка и не будет видна, т.к. при нажатии на неё сразу происходит событие onmousemove. Так что вместо onclick используйте onmousedown.

[qwerty55]

#Var
Bit:TBitMap;
Begin
Bit:=TBitMap.Create; -ошибка в этой строке((
Bit.LoadFromFile(bla-bla-bla);
Image1.Canvas.Draw(0,0,Bit);

...
TForm1.OnDestroy:
Bit.Free;

[mihali4]

Только что подробно рассказывал:
http://www.programmersforum.ru/showthread.php?t=85453

[postal2]

Можно ловить сообщения от мышки. См. пример.
В тему:
http://programmersforum.ru/showthread.php?t=43567
Спасибо mihali4

[bazanin]

Var
Prpage:integer;

procedure TStartPage.lang2Click(Sender: TObject);
begin
Prpage:=7;
lang2.Picture.LoadFromFile('Picture \United-Kingdom1.png');
TimerDown.Enabled:=true;
end;//lang2-картинка

procedure TStartPage.TimerDownTimer(Sender: TObject);
begin
...
if Prpage=7 then
begin
lang2.Picture.LoadFromFile('Picture \United-Kingdom.png');
end;
...
TimerDown.Enabled:=false;
TimerUp.Enabled:=True;

end;

по TimerUp выполняем действие) просто и красиво
Ну а красоту сам наведешь) мигать не должно(у меня небыло проблемы) только с наведением мыши не помогу... пальцевый интерфейс