26 lines
527 B
Text
26 lines
527 B
Text
DECLARE SUB buttonClick
|
|
|
|
CREATE form AS QForm
|
|
Center
|
|
Height = 120
|
|
Width = 300
|
|
|
|
CREATE text AS QLabel
|
|
Caption = "There have been no clicks yet."
|
|
Left = 30: Top = 20
|
|
END CREATE
|
|
|
|
CREATE button1 AS QButton
|
|
Caption = "Click me"
|
|
Left = 100: Top = 50: Height = 25: Width = 100
|
|
OnClick = buttonClick
|
|
END CREATE
|
|
END CREATE
|
|
|
|
SUB buttonClick
|
|
STATIC count AS Integer
|
|
count = count+1
|
|
text.Caption = "Clicked " + STR$(count) + " times."
|
|
END SUB
|
|
|
|
form.ShowModal
|