گرافیک

[qazwsx]

با سلام
من تو فرمم یک عکس آیکون گزاشتم میخام وقتی موس روش میره پر رنگ بشه باید چکار کنم ممنون

[manvaputra]

از دو تا عکس باید استفاده کنی و رویداد ها.

[yashar666]

می تونی هم از خواص سیاه سفید کردن عکس استفاده کنی و بعد در خاصیت onmove mouse میتونی رنگیش کنی

[Bahmany]

شما می بایست :
رویداد OnMouseEnter و OnMouseExit بروی عکستان بسازید و یا کامپوننت مربوط به آن را دانلود کنید و هر کدی که می خواهید منبی بر تغییر عکس Fade شدن و یا هر چیز دیگری را در آن تعریف کنید :
می توانید یک یونیت جدید ساخته و از کد زیر برای ساختی دو رویداد بالا استفاده کنید


unit Image2;

interface

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

type
TEntrarEvent=procedure(Sender:TObject) of object;
TSalirEvent =procedure(Sender:TObject) of object;
TImage2 = class(TImage)
private
{ Private declarations }
FOnEnter:TEntrarEvent;
FOnExit :TSalirEvent;
procedure CMMouseEnter(var msg:TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
property OnMouseEnter: TEntrarEvent read FOnEnter write FOnEnter;
property OnMouseLeave: TSalirEvent read FOnExit write FOnExit;

end;

procedure Register;

implementation

procedure TImage2.CMMouseEnter(var msg:TMessage);
begin
inherited;
{Cuando el raton entra...}
If Assigned(FOnEnter) then FOnEnter(Self);
end;

procedure TImage2.CMMouseLeave(var msg: TMessage);
begin
inherited;
{Cuando el raton sale}
If Assigned(FOnExit) then FOnExit(self);
end;

procedure Register;
begin
RegisterComponents('TMania', [TImage2]);
end;

end.