[Delphi] TImage :(

0

Konban-wa

mam takie pytanko czy idzie zrobić cos takiego żeby naprzykład Image1 przesuwać w gure i w dół do pownego mometu?
bo robie odtrzwacz mp3 i natym stanełem bo kce mieć skiny wiec zwykłe scrole mi tu nie widzom sie :P .....
aha proszę niedawać mi komponętów bo i tak nie działajom umnie :P nie wiem czemu :D siągne se Delphi 7 :D ale na razie jestem na Delphi 5 :( ale nic ... ktos wie jak to zrobić? prosił bym ogotowy kod jak w gotowcach ^^

pliss

0

Nie znam innego sposobu więc podaje taki :

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If (key = VK_UP) then Panel1.Top := Panel1.Top - 2;
If (key = VK_Down) then Panel1.Top := Panel1.Top+ 2;
end;
część 2 :-D
procedure TForm1.Timer1Timer(Sender: TObject);
begin
If (Panel1.Top < 50) then panel1.Top := 50;
If (Panel1.Top > 200) then panel1.Top := 200;
end;
Nie wiem czy o to Ci chodziło. Zaznaczam jest to bardzo prosty i biedny sposób. W miejsce gdzie pisze panel wszędzie powstawiaj image.

0

wejdź na delphi super page i szukaj komponentów varianskin albo coś alb napisz domnie to ci mailem wyśle mam je:) [email protected]

0

zaby imahe sie przesuwał po formie za pomoca strzałek np to
w onkeydown na formie wpisz:

aha wez ustaw image1 left - top w równej left np 100,110 zeby nie było 169 bo jak bedzie sie przesuwał co +2 Top to nie bedzie top=0 i ominie top=0 i nie bedzie działac ten sakres;

if (key=Vk_Top) then begin
if image1.Top0 then begin // rózne od 0 bedzie działac zawsze top+2 a gdy nie bedzie Image1.To=0
image1.Top:=Image1.Top+2;
end;
end;

albo tak tez moze byc:

if (key=Vk_Top) then begin
if image1.Top>0 then begin //wieksze od 0 top czyli wszystk. punkty rózne od 0 a 0 top to jest sciana -sakres chodzenia tego image po formie
image1.Top:=Image1.Top+2;
end;
end;

dla astepnych procedur Left,Right i Down dopisujesz tak samo

top=0 to jest zakres górny.
top=1000 zakes dolny.

if (key=Vk_down) then begin
if image1.Top1000 then begin // rózne od 1000 bedzie działac zawsze top-2 a gdy nie bedzie Image1.Top=1000
image1.Top:=Image1.Top-2;
end;
end;

tak samo dla Left i Right !!!

Pozdrawiam !!!

1 użytkowników online, w tym zalogowanych: 0, gości: 1