nicht modale dialoge verschieben

[Mark90]

hi,

ich hab mal ein prog nonvcl programmiert. ich habe eine dialog resource. aus der lade ich einen dialog ohne titelleiste. wie kann ich diesen dialog verschieben.(wenn ich mit der Maus auf den dialog klicke soll er sich verschieben.)

[uwewo]

Du zeigst aber trotzdem ein Form an oder.

Delphi-Quellcode:

private
procedure WMNCHitTest(var M: TWMNCHitTest);  message WM_NCHitTest;
..

procedure TForm1.WMNCHitTest (var M: TWMNCHitTest);
begin
  inherited;
  if M.Result = htClient then 
    M.Result := htCaption;
end;

Hoffe es hilft, hatte noch nie was mit nonvcl am Hut.

[Mark90]

Nein ich benutzte keine Form. Ich programmiere mit der Win32-Api. Eigentlich müsste das doch sicher Luckie wissen. Hier nochmals meine Frage: Wie bewege ich meinen Dialog auf dem Desktop, ohne titelleiste.

[himitsu]

Im Grunde doch genauso wie mit VCL-Fenstern ohne Titelleiste.

• Mausklick (drücken) abfangen und Variable auf true setzen, sowie die aktuelle Mausposition speichern
• Wenn Variable = true dann:
  Mausmove abfangen und je nach Mausbewegung (Diverenz aus aktueller und neuer Mausposition) das Fenster verschieben, sowie neue Posiion speichern
• Mausklick (loslassen) abfangen und Variable auf false setzen

[Mark90]

Hi bei der VCL geht das so.

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(Form1.Handle, WM_SYSCOMMAND, $F012, 0);
end;

ich habs bei meinem dialog probiert, leider klappt das nicht.

Delphi-Quellcode:

case umsg of 
  WM_SIZE:
    BEGIN
      ReleaseCapture;
      SendMessage(HWND, WM_SYSCOMMAND, $F012, 0);
    END;

[himitsu]

ReleaseCapture und WM_SYSCOMMAND+$F012 sind Functionen/Messages der VCL.

Wie gesagt du mußt es schon selber machen, also die Messages für MausClick/-Move von der Form abfangen und auswerten. :zwinker:

[bitsetter]

Moin moin,

Zitat:

Zitat von himitsu

Im Grunde doch genauso wie mit VCL-Fenstern ohne Titelleiste.

• Mausklick (drücken) abfangen und Variable auf true setzen, sowie die aktuelle Mausposition speichern
• Wenn Variable = true dann:
  Mausmove abfangen und je nach Mausbewegung (Diverenz aus aktueller und neuer Mausposition) das Fenster verschieben, sowie neue Posiion speichern
• Mausklick (loslassen) abfangen und Variable auf false setzen

so in etwa habe ich das mal gemacht, es funktioniert zwar aber so richtig gut finde ich die Lösung auch nicht.

[Mark90]

Zitat:

Zitat von bitsetter

Moin moin,

Zitat:

Zitat von himitsu

Im Grunde doch genauso wie mit VCL-Fenstern ohne Titelleiste.

• Mausklick (drücken) abfangen und Variable auf true setzen, sowie die aktuelle Mausposition speichern
• Wenn Variable = true dann:
  Mausmove abfangen und je nach Mausbewegung (Diverenz aus aktueller und neuer Mausposition) das Fenster verschieben, sowie neue Posiion speichern
• Mausklick (loslassen) abfangen und Variable auf false setzen

so in etwa habe ich das mal gemacht, es funktioniert zwar aber so richtig gut finde ich die Lösung auch nicht.

Danke bitsetter genau das habe ich gesucht.

[teebee]

Zitat:

Zitat von Mark90

ich habs bei meinem dialog probiert, leider klappt das nicht.

Delphi-Quellcode:

case umsg of 
  WM_SIZE:
    BEGIN
      ReleaseCapture;
      SendMessage(HWND, WM_SYSCOMMAND, $F012, 0);
    END;

Das gehört nach WM_LBUTTONDOWN und nicht nach WM_SIZE, dann geht es.

Zitat:

Zitat von himitsu

ReleaseCapture und WM_SYSCOMMAND+$F012 sind Functionen/Messages der VCL.

Nein, die gehören beide zu Windows.

Gruß, teebee

[Luckie]

So mache ich es in meinen Dialogen:

Delphi-Quellcode:

{ move the window with the left button down }
WM_LBUTTONDOWN:
  begin
    SetCursor(LoadCursor(0, IDC_SIZEALL));
    SendMessage(hDlg, WM_NCLBUTTONDOWN, HTCAPTION, lParam);
  end;