20-11-2015, 09:54
Merhaba arkadaşlar,
Delphi ile geliştirdiğiniz uygulamalarda başlıksız formlarınız olabilir ve bu formları gövdeden sürüklemek isteyebilirsiniz.
Bunu yapmak ise 2 satırılık bir kodla mümkün olabiliyor.
Formumuzun onmousedown olayına;
Kodunu eklediğimizde artık formumuz gövdeden sürüklenebilir hâle geliyor. (2. satırdaki Form1 yerine form adınızı yazmanız gerekiyor)
* Dikkat etmemiz gereken husus ise; eğer formumuzun üzerinde görünen farklı nesneler üzerinden de sürükleme işlemi olsun istiyorsak, nesnenin onmousedown olayını formumuzun onmousedown olayına eşitliyoruz.
Delphi ile geliştirdiğiniz uygulamalarda başlıksız formlarınız olabilir ve bu formları gövdeden sürüklemek isteyebilirsiniz.
Bunu yapmak ise 2 satırılık bir kodla mümkün olabiliyor.
Formumuzun onmousedown olayına;
Kod:
ReleaseCapture;
Form1.perform(WM_SYSCOMMAND, $F012, 0);Kodunu eklediğimizde artık formumuz gövdeden sürüklenebilir hâle geliyor. (2. satırdaki Form1 yerine form adınızı yazmanız gerekiyor)
* Dikkat etmemiz gereken husus ise; eğer formumuzun üzerinde görünen farklı nesneler üzerinden de sürükleme işlemi olsun istiyorsak, nesnenin onmousedown olayını formumuzun onmousedown olayına eşitliyoruz.