Skifte billede på billede når musen er over

((Har det noget med [Delphi] programmering at gøre?))

Placere dette javascript på din side

<script type="text/JavaScript">
<!--
function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
  if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>

Dernæst denne kode

<img src="http://www.xhero.dk/billeder/billede1" name="Image1" border="0" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image1','','billeder2',1)">

procedure TForm1.SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
speedbutton1.Glyph.LoadFromFile('c:\temp\bulbon.bmp');
end;


procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
speedbutton1.Glyph.LoadFromFile('c:\temp\bulboff.bmp');
end;

her med et image.....

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  begin
image1.Picture.LoadFromFile('c:\temp\bulboff.bmp');
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
image1.Picture.LoadFromFile('c:\temp\bulbon.bmp');
end;

Vil de events ikke loade og loade i en uendelighed?

Kun den ene da image eventen kun fyres af når musen er over/indenfor image,

derimod form1 event vil kører i en uendelighed, og det er selfølgelig ikke optimalt.

man kunne også putte de 2 billeder i en imagelist og så loade dem derfra

var
  Bitmap : TBitmap;
begin
  Bitmap := TBitmap.Create;
  ImageList1.GetBitmap(rx1.Tag, Bitmap);
  rx1.Glyph.Assign(Bitmap);
  Bitmap.Free;
  rx1.Tag := (rx1.Tag + 1) mod 2;
  end;

Ja men hvis jeg vil loade et billede på min computer kan andre computere jo ikke loade den fil?

jo hvis du bruger imagelist....så er billederne i programmet

men faktisk kan du gøre det på den måde at ligge billederne i samme bibliotek som *.exe filen og så skrive....

image1.Picture.LoadFromFile('bulbon.bmp');

Jeg har prøvet med imagelist, så bliver knapperne mindre end dem jeg vil have. Hvis de er 32*32 så bliver de mindre. Kan dette ikke ændres?

i properties kan du sætte størrelsen på dine image i imagelist

tak det virkede :)

er stadig ikke en optimal løsning på nogen måde.

Man kunne bruge en global bool variabel til at kontrollere, om det er förste gang,
mouse move eventen bliver aktiveret. Herved bliver eventen stadigväk aktiveret hele tiden, men loader kun billedet een gang.
Utestet:


//Global variabel. Initialiseres med false i FormCreate.
a: Bool;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if a = False then
  begin
    Image1.Picture.LoadFromFile('c:\temp\bulboff.bmp');
    a := True;
  end;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if a = True then
  begin
    Image1.Picture.LoadFromFile('c:\temp\bulbon.bmp');
    a := False;
  end;
end;

lige præcis sparer en masse rescources i større programmer.

Kan jeg ikke bruge
Image1.Picture.assign(image2.picture);

istedet for
Image1.Picture.LoadFromFile('c:\temp\bulbon.bmp'); ?

jo hvis bulbon.bmp er loadet ind i image2, så kan du godt.

du kunne jo også bare bruge OnMouseEnter og OnMouseLeave