Results 1 to 6 of 6

Thread: Formulier verplaatsen door MouseDown

  1. #1
    Keep it simple!!! Christiaan's Avatar
    Join Date
    Aug 2002
    Location
    Noordhorn
    Posts
    119

    Formulier verplaatsen door MouseDown

    Hallo allemaal...

    @Marcel: Sorry voor de mail, moest niet in de tiphoek, maar gewoon hier... Ik vondt het al een beetje vreemd, maar gewoon niet goed gekeken dus.

    Oke:

    Je kent het allemaal wel: van die schermen met Borderstyle = bsNone, Zoals bijvoorbeeld winAmp, waarbij je toch de forms kunt verplaatsen door willekeurig ergens op het scherm de muis ingedrukt te houden en vervogens het formulier te verplaatsen. Voor diegene die dat nog niet snappen/weten/gebruiken heb ik het volgende voorbeeld.

    Voeg simpelweg de volgende code toe aan een control in de OnMouseDown event, met welke je het formulier wilt kunnen verplaatsen:

    Code:
    procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    begin
      if Button = mbLeft then
      begin
        ReleaseCapture;
        TWinControl(Form1).Perform(WM_SYSCOMMAND, $F012, 0);
      end;
    end;
    Hierbij kan Form1 ook een ander object zijn... gok ik

    In ieder geval kun je ook een formulier (in dit geval Form1) verplaatsen.

    groetjes
    Christiaan
    Delphi rulezzz and so does Indy!!!

  2. #2
    Voor de duidelijkheid
    $F012 = HTCAPTION
    DeX 3 Delphi := The ease of VB with the power of C; Zoekt en gij zult vinden

  3. #3
    Keep it simple!!! Christiaan's Avatar
    Join Date
    Aug 2002
    Location
    Noordhorn
    Posts
    119
    Originally posted by D7EE
    Voor de duidelijkheid
    $F012 = HTCAPTION
    kijk - zo leer je weer es wat want dat wist ik nog niet.
    Delphi rulezzz and so does Indy!!!

  4. #4
    Het is beter dat je namen gebruikt in plaats van de integercode(beter leesbaar )
    DeX 3 Delphi := The ease of VB with the power of C; Zoekt en gij zult vinden

  5. #5
    Keep it simple!!! Christiaan's Avatar
    Join Date
    Aug 2002
    Location
    Noordhorn
    Posts
    119
    OW neej zeg...

    *zucht* ben ik ff dubbel bezig:

    http://www.nldelphi.com/Forum/showth...&threadid=1342

    Naja valt het iig op!

    Sorry for the inconveniance,
    christiaan
    Delphi rulezzz and so does Indy!!!

  6. #6
    Is de volgende code niet makkelijker? Bovendien houd je hiermee je Mouse events vrij, wat het werken met dit form wellicht makkelijker maakt:
    Code:
    procedure WMNCHITTEST(var Msg: TWMNCHitTest); message WM_NCHITTEST;
    
    procedure TForm1.WMNCHITTEST(var Msg: TWMNCHitTest);
    begin
      Msg.Result := HTCAPTION;
    end;
    1+1=b

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Replies: 7
    Last Post: 28-Oct-04, 22:51
  2. sluiten formulier dmv escape toets
    By SpeciesXX in forum Algemeen
    Replies: 5
    Last Post: 02-Feb-04, 13:36
  3. Opstarten formulier
    By fscharff in forum Algemeen
    Replies: 3
    Last Post: 15-Sep-03, 22:25
  4. runtime buttons verplaatsen
    By patman in forum Algemeen
    Replies: 1
    Last Post: 05-Apr-03, 18:42

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •