Button

[stevejobs]

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