Autor Beitrag
keine_ahnung3
Hält's aus hier
Beiträge: 4



BeitragVerfasst: Fr 25.01.08 13:37 
folgendes prob:
drei images sollen übereinander liegen (spielkarten), die karten sind versetzt (darunterliegenden karten sind teilweise zu sehen).
DIe Karten werden voher angeklickt, damit sie sich auf den Stapel bewegen, Problem dabei:

Die letzte angeklickte Karte soll die oberste sein, sie ordnen sich aber immer der Reihe nach ein.

Wie bekomme ich die letzte angeklickte Karte in den Vordergrund?


ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
procedure TForm1.Image2Click(Sender: TObject);
begin
  Image2.left:=100;
  Image2.top:=100;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 close;
end;

procedure TForm1.Image3Click(Sender: TObject);
begin
 Image3.left:=120;
 Image3.top:=80;
end;

procedure TForm1.Image4Click(Sender: TObject);
begin
 Image4.left:=140;
 Image4.top:=100;
end;


hoffe ihr versteht mein prob und könnt mir helfen, danke im vorraus euer keine_ahnung3^^

Moderiert von user profile iconChristian S.: Delphi-Tags hinzugefügt
Moderiert von user profile iconChristian S.: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Fr 25.01.2008 um 12:38
Xion
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
EE-Maler
Beiträge: 1952
Erhaltene Danke: 128

Windows XP
Delphi (2005, SmartInspect), SQL, Lua, Java (Eclipse), C++ (Visual Studio 2010, Qt Creator), Python (Blender), Prolog (SWIProlog), Haskell (ghci)
BeitragVerfasst: Fr 25.01.08 15:32 
:welcome:

mit Image1.BringtoFront bringst du das Image1 nach vorne...

Also am besten für alle Karten ein (nur eins) OnClick:

ausblenden Delphi-Quelltext
1:
2:
3:
4:
procedure TForm1.KarteClick(Sender: TObject);
begin
  TImage(Sender).BringtoFront; //Bin mir hier mit dem Syntax nicht ganz sicher
end;


Xion

_________________
a broken heart is like a broken window - it'll never heal
In einem gut regierten Land ist Armut eine Schande, in einem schlecht regierten Reichtum. (Konfuzius)
keine_ahnung3 Threadstarter
Hält's aus hier
Beiträge: 4



BeitragVerfasst: Fr 15.02.08 14:16 
hat funktioniert thx
Tilo
ontopic starontopic starontopic starontopic starofftopic starofftopic starofftopic starofftopic star
Beiträge: 1098
Erhaltene Danke: 13

Win7 geg. WInXP oder sogar Win98
Rad2007
BeitragVerfasst: Fr 15.02.08 15:06 
ausblenden Delphi-Quelltext
1:
2:
3:
4:
procedure TForm1.KarteClick(Sender: TObject);
begin
  (Sender as TImage).BringtoFront; //Bin mir hier mit dem Syntax nicht ganz sicher
end;


Im Objectinspektor für jedes Kartenimage im OnClick diese Procedure angeben.