Einzelnen Beitrag anzeigen

Macci

Registriert seit: 31. Mai 2007
129 Beiträge
 
#5

Re: Verhindern das Fenster verschoben wird

  Alt 9. Apr 2008, 18:46
Hallo,

nein, du musst ganz einfach nur die Message WM_MOVING abfangen. Ist wirklich ein Kinderspiel. Bei Google wirst du sofort fündig.

Edit: Ach was solls, hier die Lösung.

Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

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


type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure OnMoving(var Msg: TWMMoving); message WM_MOVING;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.OnMoving(var Msg: TWMMoving);
begin
inherited;
Msg.lpRect^ := BoundsRect; // Neue Position ist die aktuelle Position
Msg.Result := 1;

end;



end.
  Mit Zitat antworten Zitat