Hallo Furmy,
Du must das bild mit dem rand bei Height auf 0 setzten. Nimm nun das normale Bild, gehe nun auf ereignisse und wähle MouseMove.
gib in die prozedur ein
Delphi-Quellcode:
procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Image3.Height :=**; //** = Grösse des Bildes NORMAL!
end;
end.
Nun gehe auf den Hintergrund und wähle dort nochmals MouseMove
und gib ein
Delphi-Quellcode:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Image**.Height :=0;
end;
end.
Fertig!
Gruss
Stefan