سلام من می خوام
وقتی موس رفت روی یه عکس اون image یه عکس دیگه رو لود کنه
و وقتی که موس روی image ه نبود همون عکس قبلی لود شه
Printable View
سلام من می خوام
وقتی موس رفت روی یه عکس اون image یه عکس دیگه رو لود کنه
و وقتی که موس روی image ه نبود همون عکس قبلی لود شه
می تونی از کامپوننتی که برای این کار ساخته شده استفاده کنید
این چیزی که شما می خواهید بیشتر شبیه یک دکمه است یعنی شما می خواهید یک دکمه را شبیه سازی کنید که برای این کار کامپوننت وجود دارد که خیلی ساده و کاربردی است
ولی اگر چیزه دیگه ای مد نظر شما است فقط کافیست که شما دو تا عکس داشته باشید و در رویداد های کامپوننت Image هر کدام رو فراخوانی کنید
OnMouseout
Onmouseover
شرمنده من کدها رو با html اشتباه گرفتم
کامپوننت Image اون دو رویداد رو نداره
می تونید از کامپوننت buttoncomps استفاده کنید که با نصب این کامپوننت گزینه هایی در دلفی اضافه می شه که یکی از این گزینه ها ImageButton می باشد
ولی اگر خواستید می تونید از خود کامپوننت Image هم استفاده کنید به این صورت که به جای این که شما از رویداد های کامپوننت Imageاستفاده کنید از رویدادهای کامپوننت دیگری مانند label استفاده کنید به این صورت :
یک کامپوننت Image روی فرم قرار دهید و اندازه آن را مشخص کنید
یک کامپوننت Label روی فرم قرار دهید و اندازه آن را برابر با اندازه Image مورد نظر قرار دهید و تنظیمات زیر رو انجام بدهید :
Autosize:=false
transparent:=false
و حالا در رویداد های مربوط به Label کدهای زیر رو قرار بدهید :
هر چند خیلی خنده دار به نظر می رسه ولی اگه نتونستی کامپوننت رو پیدا کنی این روش بهتر جواب می دهکد:procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
Image1.Picture.LoadFromFile('F:\prog\1.bmp');
end;
procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
Image1.Picture.LoadFromFile('F:\prog\2.bmp');
end;