was ist neu ¦  programmier tips ¦  indy artikel ¦  intraweb artikel ¦  informationen ¦  links ¦  interviews
 sonstiges ¦  tutorials ¦  Add&Win Gewinnspiel

Tips (1541)

Dateien (137)
Datenbanken (90)
Drucken (35)
Grafik (114)
IDE (21)
Indy (5)
Internet / LAN (130)
IntraWeb (0)
Mathematik (76)
Multimedia (45)
Oberfläche (107)
Objekte/
ActiveX (51)

OpenTools API (3)
Sonstiges (126)
Strings (83)
System (266)
VCL (242)

Tips sortiert nach
Komponente


Tip suchen

Tip hinzufügen

Add&Win Gewinnspiel

Werbung

29 Visitors Online


 
...die Bewegung einer Form auf die Arbeitsfläche begrenzen?
Autor: P. Below
[ Tip ausdrucken ]  

Tip Bewertung (7):  
     


// For some reason messages.pas declares no message record for this message

type
  
TWmMoving = record
    
Msg: Cardinal;
    fwSide: Cardinal;
    lpRect: PRect;
    Result: Integer;
  end;

// Add a handler to your forms private section:

procedure WMMoving(var msg: TWMMoving); message WM_MOVING;

// Implement it as

  
procedure TFormX.WMMoving(var msg: TWMMoving);
  var
    
r: TRect;
  begin
    
r := Screen.WorkareaRect;
   // compare the new form bounds in msg.lpRect^ with r and modify it if
   // necessary
    
if msg.lprect^.left < r.left then
      
OffsetRect(msg.lprect^, r.left - msg.lprect^.left, 0);
    if msg.lprect^.top < r.top then
      
OffsetRect(msg.lprect^, 0, r.top - msg.lprect^.top);
    if msg.lprect^.right > r.right then
      
OffsetRect(msg.lprect^, r.right - msg.lprect^.right, 0);
    if msg.lprect^.bottom > r.bottom then
      
OffsetRect(msg.lprect^, 0, r.bottom - msg.lprect^.bottom);
    inherited;
  end;


 

Bewerten Sie diesen Tipp:

dürftig
ausgezeichnet


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners