Bild in einem Fenster von links nach rechts bewegen

[morphi]

Hi ich wollt mmich mal vorstellen hab vor einigen tagen mit delphi angefangen hab schon ein paar kleine sachen hinbekommen...
Jetzt wollt ich mir nen fenster machen wo ein bild von links nach rechts leuft...
hab das schon mit ner while schleife und scroll bar versucht aber das ging irgenwie net.
Ich hoffe das ihr mir weiter helfen könnt...
MFG morph

[edit=MrSpock]Titel geändert. Mfg, MrSpock[/edit]

[Nikolas]

Willkommen in der DP

- Der Titel soll etwas über dein Problem aussagen, bitte änder den doch und schreib dann nicht nur in Großbuchstaben.

- Wie hast du es denn versucht? Ein bischen Code würde da helfen.

[Nicodius]

WILLKOMMEN IN DER DP
falscher titel falsche kategorie


aber wurscht ...

nimm nen timer aus dr system leiste und dann

Bild.Left := Bild.Left + 1; // oder eben den wert dens zurücklegen soll such hier mal im forum unter timer

[fkerber]

Hi!

Herzlich Willkommen in der DP.

Erste Bitte:
Ändere deine Überschrift. Dann wird dir schneller geholfen werden können.


Zu deinem Problem:
Schau dir mal die Komponente TImage an und dort die Eigentschaft left.
Das ganze dann z.B. in Verbindung mit einem Timer.



Ciao Frederic

[Karlson]

Servus und Willkommen hier,

Zunächst solltest du dir folgendes merken:

1.) Poste deine Frage in das entsprechende Forum, im Klatsch und Tratsch hat die Frage nichts zu suchen.
2.) Verwende einen Titel der etwas aussagt, z.B. Bild über's Fenster bewegen. Mit ANFÄNGER kann hier niemand was anfangen.

zur Frage: Schau dir mal die Komponente TTimer an, im Register System.

[Nicodius]

[OT]4 auf einmal [/OT]

--> geh mal wortwörtlich auf die suche

[malo]

Mit ScrollBar ein Beispiel:

Delphi-Quellcode:

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
  Image1.Left := ScrollBar1.Position;
end;

Wenn du dann den ScrollBar bewegst, bewegt sich das Bild mit. Wenn das Bild weiter nach rechts kommen soll, als es bisher geht, musst du beim ScrollBar die Eigenschaft "Max" höher setzen

[arbu man]

tach erstmal

Delphi-Quellcode:

var i:integer;
begin
i:=image1.left;
repeat begin
i:=i+1;
image1.left:=i
end; until i=300;
end;

Ich hoffe das hilft dir

[Ultimator]

Hi arbu man!
Erstmal geb ich dir nen gut gemeinten Rat: Gewöhn dir ne saubere Formatierung deiner Sourcen an. Das hilft, später die Übersicht zu bewahren
Und dann könnte man das viel eleganter lösen

Delphi-Quellcode:

var i:integer;
begin
  for i:=0 to 300 do  
    Image1.Left:=i;
end;