Arsip: membuat image ganti picture ketika kursor melewati image??
more 18 years ago
gold3n_b0y
bagaimana caranya ketika cursor berada di dalami image gambar akan berganti dengan yang lain? setelahkeluar dari image akan kembali ke gambar semula? thx
more 18 years ago
nurez
ohh klo itu.. ane bisa tp pake HTML :) buat website :) klo form blm tuhh :) maaffff T T p smangat yhaaa :) tp klo utk aplikasi database kyknya anehhh :) buat animasi yha...?
more 18 years ago
ZeAL
DI Image1.OnMouseMove kasih kode Image1.picture.loadfromfile('c:\gambar2.jpg');
trus di Form1.OnMouseMove kasih kode Image1.picture.loadfromfile('c:\gambar1.jpg');
kira2 simpelnya kayak gini... gak efektif sih, tapi dah terjawab pertanyaannya... :D
more 18 years ago
DelphiExpert
Kira2 seperti bro ZeAL bilang...
Cuman TImage ngga' punya event onMouseLeave, jadi kamu harus tangkap event tersebut pake windows messages.
Atawa biar keliatan ok, pake timer untuk mendeteksi apakah mouse masi over the TImage. Agak ribet tapi kalo mau ya pake aja wakakakak...
more 18 years ago
masdi2t
---
DI Image1.OnMouseMove kasih kode Image1.picture.loadfromfile('c:\gambar2.jpg');
---
perlu ditambahi juga sebuah variable untuk cek apakah posisi Mouse sudah berada di Image atau baru saja keluar dari Image.
kenapa?
tebakan saya dengan metode diatas, CPU nya akan gede, soalnya setiap kali mouse digerakkan di dalam Image, terjadi mekanisme LoadFromFile (blm coba sih bener ngk CPU nya jadi gede)
rgds
more 18 years ago
ZeAL
Makanya sebelumnya gue bilang gak efektif... gue ngetik itu kan langsung ketik aja, gak pake mikir2 panjang lagi.. :D
tapi kira2 gini deh..
var Ganti : boolean;
procedure Image1.OnMouseMove
begin
if Ganti then
begin
Ganti := false;
Image1.picture.loadfromfile('c:\gambar2.jpg');
end;
end;
procedure Image1.OnMouseMove
begin
if not Ganti then
begin
Ganti := true;
Image1.picture.loadfromfile('c:\gambar1.jpg');
end;
end;
Gak tau bener apa gak.. tapi ya kira2 gitu lah... kembangin sendiri ajah... :D
more 18 years ago
mat_koder
pake aja onMouseMove di form induk dan di TImage
bila onmouse (Form induk) event terjadi berarti si mouse lagi diluar si Timage dan sebaliknya
contoh kode:
var
Form1: TForm1;
GambarLuar,GambarDalam:TPicture;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
// preset dulu gambar di memory
GambarLuar:=TPicture.Create;
GambarLuar.LoadFromFile('C:\WINDOWS\GREENSTONE.BMP');
GambarDalam:=TPicture.Create;
GambarDalam.LoadFromFile('C:\WINDOWS\WINNT.BMP');
// set isi gambar - mouse lagi diluar box
Image1.Picture:=GambarLuar;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
GambarLuar.Free;
GambarDalam.Free;
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Image1.Picture<>GambarLuar then
Image1.Picture:=GambarLuar;
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Image1.Picture<>GambarDalam then
Image1.Picture:=GambarDalam;
end;
more 18 years ago
mat_koder
sedikit lebih advanced : intercept message MOUSE_ENTER dan MOUSE_LEAVE - ini cara standar disediakan Borland utk TControl.
Note : cara terdahulu - postingan saya - ngga bener/sempurna bilamana si Image gandengan rapet dgn Control yg laen atao si Image ditaroh di Panel misalnya.
type
TForm1 = class(TForm)
Image1: TImage;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
procedure MouseMasuk(var Message: TMessage); message CM_MOUSEENTER;
procedure MouseKeluar(var Message: TMessage); message CM_MOUSELEAVE;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
GambarMasuk,GambarKeluar:TPicture;
implementation
{$R *.DFM}
{ TForm1 }
procedure TForm1.MouseKeluar(var Message: TMessage);
begin
// jika yg ngirim message adalah Image1
if TImage(message.lparam) = Image1 then
if Image1.Picture<>GambarKeluar then // jika gbr belon bener
Image1.Picture:=GambarKeluar; // benerin
inherited;
end;
procedure TForm1.MouseMasuk(var Message: TMessage);
begin
// sama aja spt pd procedure MaouseKeluar
if TImage(message.lparam) = Image1 then
if Image1.Picture<>GambarMasuk then
Image1.Picture:=GambarMasuk;
inherited;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
//preset gambar di memory ( 2 item)
GambarLuar:=TPicture.Create;
GambarLuar.LoadFromFile('C:\WINDOWS\GREENSTONE.BMP');
GambarDalam:=TPicture.Create;
GambarDalam.LoadFromFile('C:\WINDOWS\WINNT.BMP');
// set image1
Image1.Picture:=GambarKeluar;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
GambarMasuk.Free;
GambarKeluar.Free;
end;
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 4 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago
Random Topic
- menampilkan file float/double dengan pemisah ribuan pada kom
by arif_amm in Tip n Trik Pemrograman more 14 years ago - source code block ip address?
by aaa123 in Network, Files, I/O & System more 18 years ago - increment string, gmn caranya?
by nrkhlsmjd in Hal umum tentang Pascal Indonesia more 16 years ago - autocreate componen di delphi
by soniclover in Bedah Kasus more 15 years ago - capture data dari aplikasi lain
by nurez in Tip n Trik Pemrograman more 16 years ago - tanya cara Export Delphi ke XLS
by yehez_kiel in Tip n Trik Pemrograman more 17 years ago - Download ms SQL Server 2000 Dimana ?
by hyde in MsSQL more 16 years ago - Sekolah Ubuntu: kesempatan promosi FreePascal dan Lazarus
by simba in OOT more 16 years ago - About VCLSkin - Only For Penjahat
by cyber_hecker in OOT more 18 years ago - Kopi Darat v2 (beta version) - rilis 5-juli-2009
by LuriDarmawan in Hal umum tentang Pascal Indonesia more 14 years ago