Rechteck verschieben

[delphicoder123]

Könntet ihr mir bei folgenden Punkten noch helfen:

1) Wie überprüfe ich, ob die Maus innerhalb vom Rechteck ist? Mit welcher Methode?
2) Wenn der User die Maus loslässt, dann brauche ich zu diesem Zeitpunkt die Koordinaten der Maus im Formular. Wie bekomme ich diese? Mit welcher Methode?

[peterbelow]

Zitat von delphicoder123:

Könntet ihr mir bei folgenden Punkten noch helfen:

1) Wie überprüfe ich, ob die Maus innerhalb vom Rechteck ist? Mit welcher Methode?
2) Wenn der User die Maus loslässt, dann brauche ich zu diesem Zeitpunkt die Koordinaten der Maus im Formular. Wie bekomme ich diese? Mit welcher Methode?

Der OnMouseUp-Event bringt die Koordinaten der Maus mit, schon auf Clientkoordinaten umgerechnet.

Du hast leider den Fehler gemacht, deine Rechteck-Klasse TRect zu nennen. Dadurch hast Du einen Namenskonflikt mit dem Delphi-Typ TRect aus der Unit System.Types. Das ist ein Record mit vielen nützlichen Methoden, darunter

 function Contains(const Pt: TPoint): Boolean; overload; Siehe http://docwiki.embarcadero.com/Libra...em.Types.TRect

[delphicoder123]

Mit ClientToScreen und ScreenToClient bekomme ich also die Koordinaten der Maus.
Screen Koordinaten sind wahrscheinlich Koordinaten auf dem Bildschirm?
Und was sind Client Koordinaten?

[Luckie]

Rat mal. Oder guck in der Hilfe.

Was bleibt denn noch übrig? Richtig das übergeordnete Fenster.

[delphicoder123]

Zitat von EWeiss:

Zitat:

Ich brauche aber einen Rückgabewert.

Delphi-Quellcode:

procedure MeineProcedure(Test: string; var MeineRückgabeinderProcedure: Integer);
begin
  if Test <> '' then
    MeineRückgabeinderProcedure := 10;
end;

Du siehst also um eine Rückgabe zu erhalten benötigt man nicht in jedem fall eine Funktion.
var ist das Schlüsselwort vor MeineRückgabeinderProcedure.

Ob er jetzt das als Methode meint keine Ahnung.

Oder wie in deinem Beispiel.

Delphi-Quellcode:

procedure rechteckGetroffen(var Getroffen: BOOL);
 begin
   if (Mouse.CursorPos.X > x1) AND (Mouse.CursorPos.X < x2) AND
       (Mouse.CursorPos.Y > y1) AND (Mouse.CursorPos.Y < y2) then
       Getroffen:=true
     else 
       Getroffen:=false;

 end;

Delphi-Quellcode:

procedure TRect.anfassen;
var
 FGetroffen: BOOL;
begin
   rechteckGetroffen(FGetroffen);
   if FGetroffen then
     z:=1;
end;

gruss

Ich habe aus der Funktion eine Prozedur gemacht. Trotzdem werden die Variablen x1,x2,y1 und y2 nicht erkannt

Code:

procedure rechteckGetroffen(var getroffen: Bool);
begin
  if (Mouse.CursorPos.X > x1) AND (Mouse.CursorPos.X < x2) AND
      (Mouse.CursorPos.Y > y1) AND (Mouse.CursorPos.Y < y2) then
      result:=true
    else
      getroffen:=false;

end;

[Luckie]

Wo sind sie denn deklariert?

[delphicoder123]

Sind als private-Variablen deklariert

Code:

unit rechteck;

interface
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;
type
  TRechteck = class(TObject)

  private
  z:Integer; // Zustand (0,1)
  x1,x2,y1,y2: Integer;
  clr: TColor;
  cvs: TCanvas; // Zeichenfläche
  formular: TForm;

[Luckie]

Deine Procedure ist aber keine Methode deiner Klasse. Du solltest dich mal mit den Grundlagen der Objektorientierten Programmierung unter vertraut machen.

[EWeiss]

Du musst deine Procedure und oder Function in deine Klasse packen..

Delphi-Quellcode:

  TRechteck = class(TObject)

   private
     z:Integer; // Zustand (0,1)
     x1,x2,y1,y2: Integer;
     clr: TColor;
     cvs: TCanvas; // Zeichenfläche
     procedure rechteckGetroffen(var getroffen: Bool); // <<< Hier gehört die rein!!!
   public 
   
   end;

Das ergebniss ist dann

procedure TRechteck.rechteckGetroffen(var getroffen: Bool);

Und nicht...
procedure rechteckGetroffen(var getroffen: Bool);
TIP: Rechte maustaste auf die Class und dann im Menu auf "complete class at Cursor" und da dann dein Zeugs rein!

Damit hast du keinen zugriff auf die Koordinaten die in deiner Klasse definiert sind.

Zitat:

Trotzdem werden die Variablen x1,x2,y1 und y2 nicht erkannt

Du kannst nicht auf eine private Eigenschaft von TRechteck zugreifen wenn du kein Member von TRechteck bist.
Das bist du erst dann wenn du deine Procedure dort einlagerst.

Delphi-Quellcode:

procedure rechteckGetroffen(var getroffen: Bool);
 begin
   if (Mouse.CursorPos.X > x1) AND (Mouse.CursorPos.X < x2) AND
       (Mouse.CursorPos.Y > y1) AND (Mouse.CursorPos.Y < y2) then
       result:=true
     else
       getroffen:=false;

 end;

Das ist auch falsch wenn schon dann beide Rückgaben "getroffen" nicht einmal Result und einmal getroffen
Verwende bitte in Zukunft die Delphi Tags im Forum Editor das ist das Icon mit dem Delphi Symbol nicht das Code(C++) Symbol.

gruss

[delphicoder123]

Bei mir wird beim onmouseDown Event folgender Code ausgeführt:
"formular" ist eine private Variable.
Warm bekomme ich immer noch die falschen koordinaten wenn ich innerhalb vom Rechteck bin?

Delphi-Quellcode:

function TRechteck.rechteckGetroffen(): Boolean;
var
  pt: TPoint;
begin
    pt:= Mouse.CursorPos;
    {if (formular.ScreenToClient(Mouse.CursorPos).X >= x1) AND (formular.ScreenToClient(Mouse.CursorPos).x <= x2) AND
      (formular.ScreenToClient(Mouse.CursorPos).Y >= y1) AND (formular.ScreenToClient(Mouse.CursorPos).Y <= y2) then
      result:=true
    else
      result:=false;   }

    pt := formular.screenToClient(pt);
    if (pt.X >= x1) AND (pt.x <= x2) AND
      (pt.Y >= y1) AND (pt.Y <= y2) then
      result:=true
    else
      result:=false;

end;