Form Taşıma

[husonet]

Arkadaşlar formun başlık çubuklarından taşınmasını istemiyorum nasıl bir kodlama yapmam lazım.

[mussimsek]

Merhaba,

formun OnCreate olayına aşağıdaki kodu yaz.

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
var
  hMenuHandle : HMENU;
begin
  hMenuHandle := GetSystemMenu(Form1.Handle, FALSE); //Get the handle of the Form
  if (hMenuHandle <> 0) then
    DeleteMenu(hMenuHandle, SC_MOVE, MF_BYCOMMAND); //disable moving
end;

Kolay gelsin.