taşınmayan bir form yapmak istiyorum

[tuanna]

sanırım başlık açıklayıcı oldu şimdiden teşekürler....

[nitro]

bence formun borders (ya da neydi tam hatırlamıyorum. border style falan da olabilir. bu makinede delphi yok da ) özelliğini none yap. paintte bi pencere başlık çubuğu resmi oluştur. formun tepesine koy. böylece form taşınmaz olacaktır. kolay gelsin.

[ZER0]

Kod: Tümünü seç

type
  TForm1 = class(TForm)
  private
    Procedure WMSysCommand( Var msg: TWMSysCommand ); message WM_SYSCOMMAND;
  public
    { Public tanımlar }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMSysCommand(var msg: TWMSysCommand);
begin
  if (msg.CmdType and $FFF0) = SC_MOVE then begin
    msg.result := 0;
    exit;
  end;
  inherited;
end;

sanırım bu işinizi görürür