Non editable text in editable inputbox

[Maikey81]

Hi,

Is it possible to create an Inputbox with text already in it, that isn't editable, but when you select the inputbox, you start typing behind the text that's already in the inputbox?

For example:

When having a series of product which all start with the same first four characters, is it possible to default have these first four characters in an inputbox, but people can't delete there characters and always start typing behind the default text? Maybe in the form of a picture?

Thanks in advance.

Edited May 22, 2012 by Maikey81

[Xenobiologist]

#Region    ;************ Includes ************
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>
#EndRegion ;************ Includes ************
$GUI = GUICreate(" My GUI", 350, 180)
$hInput = GUICtrlCreateInput("DN40", 10, 5, 300, 20)
GUICtrlSetLimit(-1, 10)
GUISetState()
GUIRegisterMsg($WM_COMMAND, "MY_WM_COMMAND")
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

Func MY_WM_COMMAND($hWnd, $msg, $wParam, $lParam)
Local $controlID = _WinAPI_LoWord($wParam)
If $controlID = $hInput Then
  If StringLeft(GUICtrlRead($hInput), 4) <> 'DN40' Then
   GUICtrlSetData($hInput, "DN40")
  EndIf
  ; hier jegliche Logik rein.
EndIf
EndFunc   ;==>MY_WM_COMMAND

[Maikey81]

#Region ;************ Includes ************
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>
#EndRegion ;************ Includes ************
$GUI = GUICreate(" My GUI", 350, 180)
$hInput = GUICtrlCreateInput("DN40", 10, 5, 300, 20)
GUICtrlSetLimit(-1, 10)
GUISetState()
GUIRegisterMsg($WM_COMMAND, "MY_WM_COMMAND")
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

Func MY_WM_COMMAND($hWnd, $msg, $wParam, $lParam)
Local $controlID = _WinAPI_LoWord($wParam)
If $controlID = $hInput Then
  If StringLeft(GUICtrlRead($hInput), 4) <> 'DN40' Then
   GUICtrlSetData($hInput, "DN40")
  EndIf
  ; hier jegliche Logik rein.
EndIf
EndFunc   ;==>MY_WM_COMMAND

Thanks Xeno! That did the trick!

Now I'm going to try and figure out what you did.

[PhoenixXL]

I even wanted SomeThing Like That

The Problem is its not Case-Sensitive

Try Selecting the 'D' and type 'd' in its place

it replaces that

EDIT: forgot case sensitive option

this would do the work

code:

#Region ;************ Includes ************
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>
#EndRegion ;************ Includes ************
$GUI = GUICreate(" My GUI", 350, 180)
$hInput = GUICtrlCreateInput("DN40", 10, 5, 300, 20)
GUICtrlSetLimit(-1, 10)
GUISetState()
GUIRegisterMsg($WM_COMMAND, "MY_WM_COMMAND")
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
Func MY_WM_COMMAND($hWnd, $msg, $wParam, $lParam)
Local $controlID = _WinAPI_LoWord($wParam)
If $controlID = $hInput Then
  If Not (StringLeft(GUICtrlRead($hInput), 4)=='DN40') Then
   GUICtrlSetData($hInput, "DN40")
  EndIf
  ; hier jegliche Logik rein.
EndIf
EndFunc   ;==>MY_WM_COMMAND

thnx xenobiologist for the code

Regards

Phoenix XL

Edited May 23, 2012 by PhoenixXL