|
Use inside a TYPE ... EXTENDS {QOBJECT} ... END TYPE block
A property set is just a collection of properties, with one
major difference, you can do special processing when a user sets
the property. We will start with a somewhat useless example
TYPE TForm EXTENDS QFORM
Focus AS LONG PROPERTY SET Set_Focus
PROPERTY SET Set_Focus (Handle AS LONG)
WITH TForm
.Focus = Handle
IF .Focus THEN
SetFocus(Handle)
END IF
END WITH
END PROPERTY
END TYPE
CREATE Form AS TForm
CREATE Edit AS QEDIT
END CREATE
Focus = Edit.Handle
END CREATE
for details see chapter10.html, creating
custom components
|