So lange Linke Maustaste gedrückt

[Finki]

hey,

ich habe in diesem Forum das hier gefunden:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure Button1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private-Deklarationen }
    FDown: Boolean;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var Zahl: Cardinal;
begin
  Zahl := 0;
  FDown := true;
  while FDown do
    begin
      inc(Zahl);
      Label1.Caption := Format('%d',[Zahl]);
      Application.ProcessMessages;
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FDown := false;
end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  FDown := false;
end;

end.

und habe es einbisschen umgebaut:

Delphi-Quellcode:

procedure TForm3.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
   meinControl: TWinControl;
begin
 MDown:=true;
  if move=true then begin
 if (Sender is TWinControl) then
 meinControl := (Sender as TWinControl)
 else
 Exit;
 while MDown=true do
   begin
   meinControl.Left:=(Mouse.CursorPos.x-Form3.Left)+(Mouse.CursorPos.x-(meinControl.Left+Form3.Left));
   Form3.Refresh;
   end;

  end
  else
  Exit;
end;

procedure TForm3.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   MDown:=false;
end;

aber irgendiwe ist das eine endlosschleife, warum?

zusatz: ich will das das objekt, das bewegt werden soll, der maus folgtaber nicht an einer eck sondern so wie geklickt wurde

so wollte ich das lösen:

Delphi-Quellcode:

meinControl.Left:=(Mouse.CursorPos.x-Form3.Left)+(Mouse.CursorPos.x-(meinControl.Left+Form3.Left));

aber irgendwie will das nicht richtig funktionieren

[juergen]

Hallo,

Zitat:

Zitat von Finki (Beitrag 1224251)

...ich will das das objekt, das bewegt werden soll, der maus folgtaber nicht an einer eck sondern so wie geklickt wurde

so wollte ich das lösen:

Delphi-Quellcode:

meinControl.Left:=(Mouse.CursorPos.x-Form3.Left)+(Mouse.CursorPos.x-(meinControl.Left+Form3.Left));

aber irgendwie will das nicht richtig funktionieren

Du weist deinem Control nur die .Left-Eigenschaft zu. Du musst auch die .Top (oder .Bottom)- Eigenschaft zuweisen.

Kannst du deine Frage =>

Zitat:

Zitat von Finki (Beitrag 1224251)

... aber irgendiwe ist das eine endlosschleife, warum?

auch präzisieren?
WAS ist bei dir eine Endlosschleife?

Übrigens sollte man boolsche Werte nie mit

Delphi-Quellcode:

If boolean-Value = true

abfragen.
Stattdessen

Delphi-Quellcode:

If boolean-Value

oder eben

Delphi-Quellcode:

if not boolean-Value

...

[Finki]

Zum Theam Endlosschleife, hab ich inzwischen geklärt, das problem war das die procedure FormMouseUp nicht zugewisen war :D

und zum thema mit der Maus bewegen, da ist das Problem, das mein Textfeld ziwschen zwei positionen hin und her springt ganz schnell
in zwischen sieht der Befehl so aus

Delphi-Quellcode:

procedure TForm3.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
   meinControl: TWinControl;
begin
 MDown:=true;
  if move=true then begin
 if (Sender is TWinControl) then
 if (Sender<>Form3) then
 meinControl := (Sender as TWinControl)
 else
 Exit;
 while MDown=true do
   begin
   meinControl.Left:=((Mouse.CursorPos.x-Form3.Left)+(Mouse.CursorPos.x-(meinControl.Left+Form3.Left)));
   meinControl.Top:=((Mouse.CursorPos.y-Form3.Top)+(Mouse.CursorPos.y-(meinControl.Top+Form3.Top)));
   Form3.Refresh;
   Application.ProcessMessages;
   end;

  end
  else
  Exit;
end;

Wenn ich ein Label bewegen will kommt mein Programm hat einen External <<SIGSEGV>> ausgelöst in
include\control.inc in zeile 3953 irgendwas da steht drin

Delphi-Quellcode:

procedure TControl.SetLeft(Value: Integer);
begin
  {$IFDEF CHECK_POSITION}
  if CheckPosition(Self) then
  DebugLn('[TControl.SetLeft] ',Name,':',ClassName,' ',DbgS(Value));
  {$ENDIF}
  if csLoading in ComponentState then
  begin
    inc(FReadBounds.Right, Value - FReadBounds.Left);
    FReadBounds.Left := Value;
    Include(FControlFlags, cfLeftLoaded);
  end;
  SetBounds(Value, FTop, FWidth, FHeight);
end;

[Olli73]

Zitat:

Zitat von Finki (Beitrag 1224256)

und zum thema mit der Maus bewegen, da ist das Problem, das mein Textfeld ziwschen zwei positionen hin und her springt ganz schnell

Ich würde mal sagen, dass es an einer fehlerhaften Berechnung liegt.

Am einfachsten dürfte folgendes sein:
- Du merkst dir zu Beginn die ursprünglichen Positionen der Maus und der Komponente
- In der Schleife: Du ermmittelst wie weit die Maus von der urspr. Pos. entfernt ist und addierst das zu urspr. Pos der Komponente