Herausfinden über welcher grafik die mause ist.

[ferby]

Hallo,


ich habe es jetzt so gelößt, hoffe das ist eine gutte lösung:

Delphi-Quellcode:

procedure tform1.menue;
var
BM:TBitmap;
i,x:integer;
begin

  x:=5;

  for i:=1 to 6 do
  begin
    TImage(FindComponent('m' + inttostr(i))).Visible:=true;
    bm := TBitmap.create;
    Imagelist1.getbitmap(x+i,Bm);
    TImage(FindComponent('m' + inttostr(i))).Picture.Bitmap := BM;
  end;

  if mbild<>0 then
  begin
    Imagelist1.getbitmap(mbild-1,Bm);
    TImage(FindComponent('m' + inttostr(mbild))).Picture.Bitmap := BM;
  end;

end;

procedure TForm1.m1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if mbild<>1 then begin mbild:=1; menue; end;
end;

procedure TForm1.m2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if mbild<>2 then begin mbild:=2; menue; end;
end;

procedure TForm1.m3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if mbild<>3 then begin mbild:=3; menue; end;
end;

procedure TForm1.m4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if mbild<>4 then begin mbild:=4; menue; end;
end;

procedure TForm1.m5MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if mbild<>5 then begin mbild:=5; menue; end;
end;

procedure TForm1.m6MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if mbild<>6 then begin mbild:=6; menue; end;
end;