Mega Code Archive

 

Categories / Delphi / VCL

 

Memo, treeview, listview gibi bilesenlerde hareketler

//Ornek olarak kullanilabilecek veya ihtiyac duyulan yerler : //Cok elemanli bir treeviewde elamanlari drag drop yapma aninda yukari veya //asagi hareket ettirme... // Drag Drop olayinda Y degerine bakilip misal y < 5 ise satir satir yukari // y > TreeView1.Height - 5 ise satir satir asagi kaydir... //Textin basina: PostMessage(Memo1.Handle,WM_VSCROLL,SB_TOP,0); //Textin sonuna PostMessage(Memo1.Handle,WM_VSCROLL,SB_BOTTOM,0); //Bir satir yukari PostMessage(Memo1.Handle,WM_VSCROLL,SB_LINEUP,0); //Bir satir asagi PostMessage(Memo1.Handle,WM_VSCROLL,SB_LINEDOWN,0); //Bir sayfa yukari PostMessage(Memo1.Handle,WM_VSCROLL,SB_PAGEUP,0); //Bir satir asagi PostMessage(Memo1.Handle,WM_VSCROLL,SB_PAGEDOWN,0); //Selam NC : nihat@cikrak.de