XProfan

Français

Julian
Schmidt

Salut,
comment peux on une Tip sur une Bereich des Hauptfensters enlever qui ne...aucune Handle hat. cette Tip sollte zumindest im wesentlichen comment un Tooltip marcher (MouseMove, MouseLeave)

LG

Julian57

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

13.04.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

« cette Beitrag wurde comme Solution gekennzeichnet. »

Detlef
Jagolski

allô Julian57,

pourquoi sans Handle?
avec Handle ist es doch einfacher.

Salut

Detlef
Kompilieren Marque Séparation

 $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

XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11

13.04.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Julian
Schmidt

merci pour qui Solution

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

13.04.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Uwe
''Pascal''
Niemeier

Hi gens!

qui Vollständigkeit halber:
Kompilieren Marque Séparation

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#