[Delphi] Umieszczanie obrazka w wyznaczonym miejscu

[qspy]

Witajcie!

 

Więcej dałem na obrazku:

 

 

Może wiecie jak to zrobić? wytłumaczę dodatkowo słowami:

 

Chcę że jak się kliknie na Załaduj Obrazek to żeby szło go załadować do "Pomieszczenia".

 

Pozdrawiam,

Qspy

[Snake]

VCL: Image, OpenDialog.

 

Image wsadź do tej grupy "pomieszczenie" i do eventu OnClick buttona "Zaladuj obrazek":

OpenDialog.Execute;
Image.Picture.LoadFromFile( OpenDialog.Files[0] );

[qspy]

OK wszystko działa.

 

Dzięki!

 

Aha jeszcze chciałem coś takiego jak w GM ( patrz prawa strona obrazka w moim topicu. ) że jak kliknę teraz na ten mój załadowany obrazek to po prawej będę mógł do niego wybierać różne akcje ( drag end drop ) i gdy zaś kliknę na Start nie widać tego na screenie to on wykona te akcje np: poruszania myślę że to troszkę trudniejsze.

 

Czekam na odpowiedź i pozdrawiam,

Qspy

[Snake]

jak kliknę teraz na ten mój załadowany obrazek to po prawej będę mógł do niego wybierać różne akcje

Event OnClick na Image + Czyszczenie tamtej listy i uzupełnienie jej programowo.

 

Zaprogramuj sobie to sam bo ja za Ciebie nie będę myślał. Najprostszym sposobem możesz to zrobić przez zwykły warunek ( if ( Start ) then if ( Lewo ) itd. )...

A obrazek możesz przesuwać tak:

procedure RuchWLewo( const speed : Short );
begin with Forma do Image.Left := Image.Left - speed; end;

procedure RuchWPrawo( const speed : Short );
begin with Forma do Image.Left := Image.Left + speed; end;

procedure RuchWGore( const speed : Short );
begin with Forma do Image.Top := Image.Top - speed; end;

procedure RuchWDol( const speed : Short );
begin with Forma do Image.Top := Image.Top + speed; end;

[qspy]

Zaprogramuj sobie to sam bo ja za Ciebie nie będę myślał.

 

Ale ja tego nie umiem :/ weź bądź taki dobry i podaj kod. I przeczytaj dokładnie co napisałem.

[Snake]

Ale ja tego nie umiem :/ weź bądź taki dobry i podaj kod.

Przecież nie będę wymyślał Ci sposobu i pisał kodu tylko dlatego, że chcesz żebym Ci podał kod ( a później pewnie dalej byś prosił o dalsze "kawałki" programu ). Poszukaj w Google, na pewno znajdziesz coś takiego.

[qspy]

Tylko że szukam i szukam i nie mogę znaleźć.