gelöst: Form verschieben

[Socke]

ne das soll ja nur gehen wenn man die maustaste gedrückt hält

Dann nimm dir noch ’nen Byte und steck ’ne Null rein, wenn die Maus hochgeht und ’ne eins, wenn sie runter geht (Boolean).

[Bauer321]

hmm...

auch das hier geht nicht:

Code: Alles auswählen

var
    xc, yc : integer;
   formmove : boolean;
 
procedure TFMain.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  xc := x;
  yc := y;
  label4.caption := (inttostr(xc) + ' | ' + inttostr(yc));
  formmove := true;
end;
 
procedure TFMain.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if formmove then begin
  FMain.Top := FMain.Top+x-xc;
  FMain.Left := FMain.Left+y-yc;
  mevent.lines.add(inttostr(FMain.Top+x-xc)+' | '+inttostr(FMain.Left+y-yc));
  end;
end;
 
procedure TFMain.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  formmove := false;
end;

Arrays.exe

Wer sehen möchte wie sich das ganze verhält hier die exe...

(1.71 MiB) 67-mal heruntergeladen

[/size]

[MAC]

man mal bei onmousemove:

Code: Alles auswählen

if [ssleft] in shift then

als bedingung wenn du nur willst das bei gedrückter linker maustaste ausgeführt wird...

onmousedown ist so richtig...

[Socke]

auch das hier geht nicht:

Mal davon abgesehen, dass du Variablen, die Daten zu einer Formularinstanz als globale Variablen anlegst (was als grob fahrlässig gelten könnte), kein meine Glasgoogle den Fehler leider nicht finden. Ganz grob gesehen, ist das auch der Code, den ich mir in fünf Minuten zum Testen in den PC gehämmert habe.

[BeniBela]

Unter Windows geht es am besten, wenn du einfach nur das in FormMouseDown packst: (mit uses windows;)

Code: Alles auswählen

ReleaseCapture();
SendMessage(Handle, WM_NCLBUTTONDOWN, HT_CAPTION, 0);

[Bauer321]

man mal bei onmousemove:

Code: Alles auswählen

if [ssleft] in shift then

als bedingung wenn du nur willst das bei gedrückter linker maustaste ausgeführt wird...

onmousedown ist so richtig...

Code: Alles auswählen

procedure TFMain.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  //if formmove then begin
  if [ssleft] in shift then begin
  FMain.Top := FMain.Top+x-xc;
  FMain.Left := FMain.Left+y-yc;
  mevent.lines.add(inttostr(FMain.Top+x-xc)+' | '+inttostr(FMain.Left+y-yc));
  end;
end;
 
//Fehler:
//umain.pas(126,6) Error: Incompatible types: got "Set Of TShiftStateEnum" expected "LongWord"

Unter Windows geht es am besten, wenn du einfach nur das in FormMouseDown packst: (mit uses windows;)

Code: Alles auswählen

ReleaseCapture();
SendMessage(Handle, WM_NCLBUTTONDOWN, HT_CAPTION, 0);

dann kommt identifier ht_caption not found

[BeniBela]

dann kommt identifier ht_caption not found

Okay, es heißt HTCAPTION ohne Strich.
(in dr lcltype unit und ist 2 )

[Bauer321]

vielen dank jetzt gehts perfekt