XProfan

 $P+
Set("ErrorLevel",0)
 $H WINDOWS.PH
 $H MESSAGES.PH
' *** GlobalStatements der Form
' *** GlobalStatements der Form-Controls

Proc OnApplicationExit

EndProc

Proc OnApplicationInit

EndProc

OnApplicationInit
Declare appexit%
Declare STATIC1&
Set("TrueColor",1)
WindowStyle $003F
WindowTitle "DesignForm"
Window %maxX + 5,114 - 549,468
Cls ~GetSysColor(15)
UseFont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1
STATIC1&=Control("STATIC","",$54000100,108,103,185,107,%hwnd,2000,%hinstance)
Create("Tooltip",%hwnd,STATIC1&,"Ich bin ein Tooltip")
SetWindowPos %hwnd = 207,114 - 549,468;0

WhileNot appexit%

    WaitInput

    If %key = 2

        appexit%=1

    ElseIf %key = 4

        ' Fenstergröße

    ElseIf %key = 5

        ' Hilfe

    EndIf

Wend

OnApplicationExit

window 250,250
declare Tool&,Tool#,Text$
dim Tool#,40
long Tool#,0=40,16,%hwnd
Tool&=create("Tooltip",%hwnd,%hwnd,"")
Text$="Dies ist ein Test"
rectangle     10,10-50,50
long Tool#,16=10,10,50,50,0,addr(Text$)
sendmessage(Tool&,1028,0,Tool#)
Text$="Und noch ein Test"
rectangle     100,100-150,150
long Tool#,16=100,100,150,150,0,addr(Text$)
sendmessage(Tool&,1028,0,Tool#)
setfocus(%hwnd)
dispose Tool#
waitkey