Componente QButton (Botão)
QButton é um componente de uso geral.
Demais componentes -
Click Barra lateral esquerda
Informações adicionais -
Click propriedades em azul
Propriedades de QButton
| Campo |
Tipo |
R/W+ |
Padrão |
Suporte# |
Align
|
INTEGER |
RW |
alNone |
W |
BMP
|
STRING |
RW |
|
W |
BMPHandle
|
RESOURCE |
W |
|
W |
Cancel
|
INTEGER |
RW |
False |
W |
Caption
|
STRING |
RW |
|
WXG |
Color
|
INTEGER |
RW |
|
X |
Cursor
|
INTEGER |
RW |
crDefault |
W |
Default
|
INTEGER |
RW |
False |
X |
Enabled
|
INTEGER |
RW |
True |
WXG |
Font
|
QFONT |
W |
|
W |
Handle
|
INTEGER |
R |
|
W |
Height
|
INTEGER |
RW |
|
WXG |
Hint
|
STRING |
RW |
|
WXG |
Kind
|
INTEGER |
RW |
bkCustom |
W |
Layout
|
INTEGER |
RW |
blBMPLeft |
W |
Left
|
INTEGER |
RW |
0 |
WXG |
ModalResult
|
INTEGER |
RW |
mrNone |
W |
NumBMPs
|
INTEGER |
RW |
|
W |
Parent
|
QFORM/QPANEL/QTABCONTROL |
W |
|
WXG |
PopupMenu
|
QPOPUPMENU |
W |
|
W |
ShowHint
|
INTEGER |
RW |
False |
WXG |
Spacing
|
INTEGER |
RW |
4 |
W |
TabOrder
|
INTEGER |
RW |
|
W |
Tag
|
INTEGER |
RW |
|
WXG |
Top
|
INTEGER |
RW |
0 |
WXG |
Width
|
INTEGER |
RW |
|
WXG |
Visible
|
INTEGER |
RW |
True |
WXG |
+ R = Propriedade de
leitura W = Propriedade de escrita
#W = Windows X = Linux G = Solaris
Métodos de QButton
| Método |
Tipo |
Descrição |
Parâmetros |
Suporte# |
StartDrag
|
SUB |
Permite arrastar o botão |
0 |
W |
#W = Windows X = Linux G = Solaris
Eventos de QButton
| Evento |
Tipo |
Ocorre quando... |
Parâmetros |
Suporte# |
OnClick
|
VOID |
Usuário clicou no botão |
0 |
WXG |
OnKeyDown
|
SUB (Key AS Word, Shift AS INTEGER) |
Tecla sendo pressionada |
2 |
W |
OnKeyPress
|
SUB (Key AS BYTE) |
Usuário pressiona uma tecla |
1 |
W |
OnKeyUp
|
SUB (Key AS Word, Shift AS INTEGER) |
Usuário solta uma tecla |
2 |
W |
OnMouseDown
|
SUB (Button%, X%, Y%, Shift%) |
Botão do mouse pressionado |
4 |
WXG |
OnMouseMove
|
SUB (X%, Y%, Shift%) |
Mouse movido |
3 |
WXG |
OnMouseUp
|
SUB (Button%, X%, Y%, Shift%) |
Botão do mouse foi solto |
4 |
WXG |
#W = Windows X = Linux G = Solaris
QButton exemplo:
'-- Arrastar um botão
DIM Form AS QForm
Dim Button AS QButton
SUB MouseDown
Button.StartDrag
SHOWMESSAGE STR$(Button.Left)+", "+STR$(Button.Top)
END SUB
Button.Parent = Form
Button.OnMouseDown = MouseDown
Form.ShowModal
Sinta-se à vontade
para dar sugestões e fazer críticas construtivas.