| |
| |
|
Uwe
''Pascal''
Niemeier | Hi Leute!
Bin mir nicht sicher, ob das schon mal einer gepostet hat, aber weil's so praktisch ist...
Eine Möglichkeit, ein Edit so zu manipulieren, daß es automatisch nur Zeichen akzeptiert, die für Dateinamen gültig sind (falls systemweite Baloon-Tooltips aktiviert sind, wird bei falschen Zeichen ein entsprechender Hinweis angezeigt):
KompilierenMarkierenSeparierenwindow 200,200
declare ShellFolder&,Edit&
external("shell32","SHGetDesktopFolder",addr(ShellFolder&))
Edit&=create("edit",%hwnd,"Dateiname",10,10,100,25)
external("shell32","SHLimitInputEdit",Edit&,ShellFolder&)
while 1
waitinput
endwhile
Klappt zumindest unter XP.
Für Insider: Eigentlich muß ShellFolder anschließend wieder freigegeben werden. Klappt aber nicht.
SeeYou
Pascal |
|
| |
| |
| |
|
(873)
Deutsch
English
Français
Español
Italia