Formu Sadece Yatay Yönde Sürükle..

[Omers]

Kolay gelsin, ben formu sadece X yönünde sürüklemek istiyorum. Uzun süre bilgisayarın başında ter döktüm fakat bir türlü beceremedim.. bana yardımcı olursanız sevinirim...

Yaklaşık yarım saattir de arama yapıyorum, fakat istediğim şeyi bulamadım..

[ulu coder]

Biraz zor oldu ama sonunda başardım.

Önce şu şekilde prosedürü tanımlayın:

Kod: Tümünü seç

type
  TForm1 = class(TForm)
    procedure WMWINDOWPOSCHANGING(var Msg: TMessage); message WM_WINDOWPOSCHANGING;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

ve sonra da prosedürü şu şekilde doldurun:

Kod: Tümünü seç

procedure TForm1.WMWINDOWPOSCHANGING(var Msg: TMessage);
begin
  if ([csLoading, csDesigning] * ComponentState = []) then
    with PWindowPos(Msg.lparam)^ do
      y := self.Top;
end;

Kolay gelsin...

[Omers]

Yardımınız için çok teşekkür ederim... verdiğiniz kod işimi gördü...