dbtext perform özelliği yardım

[OZAY]

form üzerine yerleştirdiğim dbtext leri program çalışırken yerlerini değiştirmek istiyorum
bununla ilgili Google amcadan arayıp bir kod örneği buldum ancak butonlar dbedit ler taşınıyo
dbtext i taşıma olayında bu kod çalışmıyor bununla ilgili bana yardımcı olabilirmisiniz
şimdiden teşekkürler

procedure Tfrmirsaliye.DBText1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Const
Tasi=$F012;
Begin
ReleaseCapture();
dbtext1.Perform(WM_SYSCOMMAND,Tasi,0);
end;

[SimaWB]

Bulduğunuz bu çözüm sadece TWinControl sınıfından türetilmiş bileşenler için geçerlidir. Bunun dışındakiler için farklı bir çözüm bulmalısınız.
Benim ilk aklıma gelen; DBText'i bir Panel içine koyup WM_SYSCOMMAND mesajını Panel'e göndermeniz:

Kod: Tümünü seç

procedure Tfrmirsaliye.DBText1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Const
  Tasi=$F012;
Begin
  ReleaseCapture();
  Panel1.Perform(WM_SYSCOMMAND,Tasi,0);
end;