Jump to content

Editte Alt Satıra Geçemiyorum?


x_files_x

Recommended Posts

Slm Ben bi proje icin bi Edit olusturdum ama Editte neden ENTER e bastıgım zaman alta satıra gecemiyorum? yardımcı olur musunuz arkadaslar?Normal kenar cubuklu Edit oldugunda geciyor ama kenarsız olsun istiyorum ben

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 302, 179, 192, 124)
$Edit1 = GUICtrlCreateEdit("", 16, 8, 273, 161,4)
GUICtrlSetData(-1, "Edit1")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
WEnd

Link to comment
Share on other sites

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

$Form1 = GUICreate("Form1", 556, 344, 192, 124)

$Edit1 = GUICtrlCreateEdit("", 112, 24, 297, 265)

GUICtrlSetData(-1, "Edit1")

GUISetState(@SW_SHOW)

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

EndSwitch

WEnd

Link to comment
Share on other sites

@x_files_x

GUICtrlCreateEdit için style veyahut exStyle codlarına bakıp denemeler yapmak lazım.

Açıkçası fazla fikrim yok. Ama farklı bir şekilde yapabilirsin.

Misal;

Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("Form1", 302, 179, 192, 124)
GUISetOnEvent(-3, "_MenuExit")
$Edit1 = GUICtrlCreateEdit("", 16, 8, 273, 161,4)
GUICtrlSetData(-1, "Edit1")
GUISetState(@SW_SHOW)
_BlueEnter($Edit1)

While 1

	Sleep(100)
WEnd

Func _MenuExit()
	Exit
EndFunc

Func _BlueEnter($HWND = "")
	If Not IsDeclared("BLAccelKeys") Then
		If $HWND = "" Then Return SetError(1,0,False)
		Global $BL_EDIT_HWND[2] = [GUICtrlGetHandle($HWND),$HWND]
		If $BL_EDIT_HWND = 0 Then Return SetError(1,0,False)
		Global $BLAccelKeys[1][2]=[["{ENTER}", GUICtrlCreateLabel("",-5,-5,1,1)]]
		GUICtrlSetOnEvent($BLAccelKeys[0][1],"_BlueEnter")
		GUISetAccelerators($BLAccelKeys)
		Return True
	EndIf
	Local $aResult = DllCall("user32.dll", "hwnd", "GetFocus")
	If @error Or $aResult[0] &lt;&gt; $BL_EDIT_HWND[0] Then Return SetError(1,0,False)
	GUICtrlSetData($BL_EDIT_HWND[1],@crlf,1)
	Return True
EndFunc

Link to comment
Share on other sites

Umarım istediğin budur

Fazla yazı yazdırmak için scroolbar'a ihtiyacın olur zannettim

Ama senin istediğini zaten Hocam söylemiş

Neyse Kolay GeLsin ..

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...