AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Move Panel

Ein Thema von danten · begonnen am 13. Apr 2013 · letzter Beitrag vom 13. Apr 2013
Antwort Antwort
danten

Registriert seit: 19. Feb 2012
Ort: Czech Republic, Prag
126 Beiträge
 
Delphi 10.1 Berlin Architect
 
#1

Move Panel

  Alt 13. Apr 2013, 07:57
Hi all.
I have a form in it Panel1 and therein PanelA + PanelB + PanelC.

panelA = alLeft, panelB = alLeft, panelC = alLeft.
I need to drag the mouse to change the position of the panel (A, B or C).

panel1.png

Thanks all.
Daniel
  Mit Zitat antworten Zitat
Perlsau
(Gast)

n/a Beiträge
 
#2

AW: Move Panel

  Alt 13. Apr 2013, 08:29
Where is your problem?
  Mit Zitat antworten Zitat
danten

Registriert seit: 19. Feb 2012
Ort: Czech Republic, Prag
126 Beiträge
 
Delphi 10.1 Berlin Architect
 
#3

AW: Move Panel

  Alt 13. Apr 2013, 08:39
When I use PanelA.MouseDown, so panel moves, but when MouseUp not aligned alLeft.
Delphi-Quellcode:
procedure Tmain.PanelAMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
  ReleaseCapture ();
  SendMessage (PanelA.Handle, $ A1, 2, 0);
end;

procedure Tmain.PanelAMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 ???? EndCapture ???
end;
Daniel
  Mit Zitat antworten Zitat
Perlsau
(Gast)

n/a Beiträge
 
#4

AW: Move Panel

  Alt 13. Apr 2013, 08:48
Sorry, I don't understand your code and what it should do ...
  Mit Zitat antworten Zitat
Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#5

AW: Move Panel

  Alt 13. Apr 2013, 08:50
Delphi-Quellcode:
procedure TForm6.AllPanelsMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   ReleaseCapture;
   sendmessage(TPanel(Sender).Handle, WM_NCLBUTTONDOWN, 2, 0);
   Realign;
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat
danten

Registriert seit: 19. Feb 2012
Ort: Czech Republic, Prag
126 Beiträge
 
Delphi 10.1 Berlin Architect
 
#6

AW: Move Panel

  Alt 13. Apr 2013, 08:57
Delphi-Quellcode:
procedure TForm6.AllPanelsMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   ReleaseCapture;
   sendmessage(TPanel(Sender).Handle, WM_NCLBUTTONDOWN, 2, 0);
   Realign;
end;
OK, that's fine.Do I need the OnMouseUp to moving the panel aligned alLeft.
Daniel
  Mit Zitat antworten Zitat
danten

Registriert seit: 19. Feb 2012
Ort: Czech Republic, Prag
126 Beiträge
 
Delphi 10.1 Berlin Architect
 
#7

AW: Move Panel

  Alt 13. Apr 2013, 09:12
OK, solved.
Delphi-Quellcode:
if Button = mbLeft then
  begin
    ReleaseCapture();
    sendmessage(TPanel(Sender).Handle, WM_NCLBUTTONDOWN, 2, 0);
    Realign;
    TPanel(Sender).Align := alLeft;
  end;
Thanks all.
Daniel
Daniel
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:46 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf