Hvordan kan man laver sådan at f.eks. et Panel ligger næsten helt
ude i hjørnet og når man så flytter musen over panlet popper det ud,
når man så fjerner musen igen ruller den ind igen.
MH.
The-Freak
Livet er for kort til at kede sig.
Den eneste måde jeg lige kunne komme på var ved at bruge en timer:
du laver først en variabel:
Ud: Boolean;
i Panelets onMouseMove skriver du:
Ud := True;
i Formens onMouseMove skriver du:
Ud := False;
i Timerenes onTimer skriver du:
<pre>if Ud then
begin
if Panel1.Left < 200 then
Panel1.Left := Panel1.Left + 1;
end
else
begin
if Panel1.Left > 20 then
Panel1.Left := Panel1.Left - 1;
end;</pre> Det virker hvis panelet er i højre side, hvis det skal være i venstre skal der ændre nogle ting, bare sig hvis du får problemer med det. Du kan selv ændre tallene for hvor langt ind (20) og hvor langt ud (200) den skal komme.
Emil Melgaard
emil.melgaard@private.dk
- Admin på gruppen Delphi spilprogrammering.
http://www.delphispilprogram.udvikleren.dk