Entwickler-Ecke :: Thema anzeigen - Mit TImage Form bewegen Firemonkey

Petros - Do 04.10.12 16:05
Titel: Mit TImage Form bewegen Firemonkey

Hi delphi freunde ich weiß zwar nicht ob hier richtig fals nein bitte verschieben...

Jetzt zu meinem problem..

Ich will mit Firemonkey ein programm schreiben soweit alles super.
Nun hab ich ein bild (TImage) wenn mann die maus gedrückt hälte und es bewege soll sich die Form mit bewegen.

Mein ansatz war

VLC Anwendung

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
bewegen := True;
positionx:=x;
positiony:=y;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if schieben = True then
begin
  Form1.left := Form1.Left + x - positionx;
  Form1.Top := Form1.Top + y - positiony;
end;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Bewegen := False;
end;

Klappt in einer VLC anwendung super nur mit Firemonkey HD anwendung geht das leider nicht

da X, Y nicht als Integer sondern Single angegeben, ändere ich single in Integer wird diese nicht mehr im ereignisse angegeben.

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Single);
begin

end;

Lege ich eine Funktion an und lasse diese dann per MouseUp, MouseMove, MouseDown aufrufen verschwindet die form einfach in den hintergrund.

Ich hoffe es war verständlich ausgedrückt und hoffe Ihr habt evtl ne lösung.

Moderiert von Narses: B- gegen highlight-Tag im Code ersetzt.

Petros - Do 04.10.12 16:44

Cool danke bummi für alle anderen die etwas ähnliches gesucht haben oder suchen sollten

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

private
        positionx, positiony  : Integer;

var
  Form1: TForm1;
  Bewegen : Boolean;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
Bewegen := True;
positionx:=Round(x);
positiony:=Round(y);
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Single);
begin
if bewegen = True then
begin
  Form1.left := Form1.Left + Round(x)- positionx;
  Form1.Top :=  Form1.Top + Round(y) - positiony;
end;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
Bewegen := False;
end;

Marc. - Do 04.10.12 22:24

Was mir noch auffällt: Du prüfst in Zeile 112 auf true.
Das ist nicht nur nicht schön, sondern auch falsch. ;)

Bei einer If-Abfrage wird automatisch auf true geprüft, somit prüfst du erstens doppelt.
Zweitens ist true als Konstant 1 definiert. Allerdings kann laut Definition der Rückgabewert von der If-Abfrage bei true alle Werte außer der 0 (false) annehmen.
Im ungünstigen Fall prüfst du also z.B. sowas: 1 <> 2.

Schöne Abend
Marc

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!