Perform methodu

[ozn]

Merhaba arkadaşlar;
Border ı olmayan başlıksız formları taşımak için Perform methodunun kullanılabileceğini duymuştum. Bunu beceremedim.Yardımcı olursanız sevinirim. Yada bunu yapmak için farklı bir method. mouseDown - mousemove dışında.
iyi çalışmalar

[mavsar]

Kod: Tümünü seç

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
const
  SC_DragMove = $F012;
begin
  ReleaseCapture;
  Form1.Perform(WM_SysCommand, SC_DragMove, 0);
end;

Kolay gelsin,

Mehmet

[ozn]

çok sağol abim . Tam aradığım şey. Kolay gele