API & Desarrollo 30 de Noviembre del 2006 02:00 am
Crear Formularios Redondos con VFP
Para cuando quieran crear formularios un poco diferentes a los típicos cuadrados 
Public oFrm
oFrm = Createobject('Form_Redondo')
oFrm.Show()
Return
Define Class Form_Redondo As Form
Procedure Load
Local hRgn
Declare Integer SetWindowRgn In user32 ;
integer HWnd, Integer hRgn , Integer bRedraw
Declare Long CreateEllipticRgn In "gdi32" Long X1, Long Y1, Long X2, Long Y2
hRgn = CreateEllipticRgn(22,20,This.Width,This.Height)
SetWindowRgn(This.HWnd, hRgn, 1)
EndProc
EndDefine
on 18 Oct 2007 at 6:28 1.Rafael
dijo …
da error, dice “property is hwnd not found”
Estoy intentando hacer un formulario que muestre una tabla desplasandome con loças flechas del teclado y con las de avance de pagina o retroceso y que me permita modificar el registro que me este mostrando en ese momento sin darle a ningun botom creado.
Digo esto poque los botones que me genera el wizard de add, edit, subir bajar, me parece un metodo preistorico, sera que me puedes alludar con esto ???
Gracias mil
18/10/2007
08:30am
Caracas
Venezuela
on 18 Oct 2007 at 15:13 2.Jorge Mota
dijo …
Necesitas tener vfp 7 o superior, si tienes vfp 6 puedes hacer esto al init de tu form (antes que el código del artículo)
Declare long FindWindow in user32″ string lpClassName, StringlpWindowName
lnHwnd = FindWindow(null, thisform.caption)
thisform.addproperty(’hwnd’,m.lnHwnd)