Formun Ekran Kenarlarına Yapışması

[meteor]

Bazı programlarda özellikle küçük formları olan programlarda (winamp gibi) program formu ekran kenarlarına belirli miktarda yaklaşınca form ekran kenarına yapışıyor.

Bunu kodla yapmak mümkün müdür?Component mi kullanmak gerekir?Hangi Component?
Teşekkürler..

[muskut]

Mesaj yakalıyarak şu şekilde yapabilirsin

Kod: Tümünü seç

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
  private
    procedure HitTest(Var msg: TWMMove); message WM_MOVE;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.HitTest(var msg: TWMMove);
begin
  if (msg.XPos < 50) and (msg.XPos > -50) then
    Left := 0;
  if (msg.YPos < 50) and (msg.YPos > -50) then
    Top := 0;
  inherited;
end;

end.

[meteor]

Teşekkürler..İşime Yaradı..