在FMX XE2按鈕上的鼠標懸停圖像

Question

如何爲按鈕製作鼠標懸停圖像？ 我曾經在FMX 2按鈕中製作，並用位圖填充它。但它的有限。 我發現財產IsMouseOver

procedure TForm1.Button1Paint(Sender: TObject; Canvas: TCanvas; 
    const ARect: TRectF); 
begin 
if Button1.IsMouseOver then 
begin 
    Button1.Text:='yes'; 
end 
else 
begin 
    Button1.Text:='nono'; 
end; 
end; 

但是，我真的不知道如何使用的容器，我只是想通過之前寫的方法來改變填充（我的位圖）。有人可以給一個簡單的代碼？

或者也許它在VCL中更容易製作？

Answer 1

將兩個單獨的TImage控制上的按鈕（它們拖動到按鈕中的結構視圖）：

大小它們以適合按鈕，以及使用該MultiResBitmap屬性給每個單獨的圖像編輯。

創建用於TImage組件的OnMouseEnter和OnMouseLeave事件之一的事件處理程序，然後分配這些處理程序均TImage部分組成：

procedure TForm1.Image1MouseEnter(Sender: TObject); 
begin 
    Image1.Visible := False; 
    Image2.Visible := True; 
end; 

procedure TForm1.Image1MouseLeave(Sender: TObject); 
begin 
    Image1.Visible := True; 
    Image2.Visible := False; 
end;