![]() Text to m.myvar noshow &this is a background image i used for this demo AddObject("image"+Trans(Recno()),"image") ![]() SetParent(Thisform.yhwnd, Thisform.HWnd) & change parent the form class as a child of the main form Thisform.Caption=Thisform.Caption+Trans(Reccount())+" images)-" Insert Into ycurs Values (m.yrep+gabase(i,1)) Sele * From Home(1)+"samples\data\customer" Into Cursor mycurs Caption = "A scrollable container as form class-"ĭeclare Integer BringWindowToTop In user32 Integerĭeclare Integer SetParent In User32 Integer HWnd, Integer ParenthWndĭeclare Integer Sleep In kernel32 Integer
0 Comments
Leave a Reply. |
Details
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |