Ich hab ein problem bei meinem
Nonvcl Edit Control
Wenn ich ein Wort eingebe dann mit dem Cursor bis zum ende scrolle bleibt dieser am Ende der EditBox stehen.
Der Text wird also nicht nach links verschoben so das ich längere Eingaben als die EditBox gesamtlänge eingeben kann.
Delphi-Quellcode:
function TSkinEdit.CreateWindow(ParentHandle: HWND): HWND;
begin
LStyle := WS_CHILD
or ES_NOHIDESEL;
if Visible
then
LStyle := Lstyle
or WS_VISIBLE;
if VScroll
then
LStyle := Lstyle
or WS_VSCROLL;
if Multiline
then
LStyle := Lstyle
or ES_MULTILINE;
FHEdit := CreateWindowEx(WS_EX_TRANSPARENT, '
EDIT',
'
', LStyle, Left, Top, Width, Height, ParentHandle, DlgItemID,
SkinEngine.skInstance,
nil);
if FHEdit <> 0
then
begin
SubClass(
Handle);
end;
Result := FHEdit;
end;
Was fehlt hier?
Oder kann man grundsätzlich nicht über die länge des Edit, Text eingeben? (Doch beim
VCL EDIT geht das mit dem Scrollen)
Hmm... Dann fehlt was.
Ich weiß das man die länge der Eingabe begrenzen kann
SendDlgItemMessage(hDlg, IDC_EDIT1, EM_SETLIMITTEXT, (WPARAM)50, 0);
Aber genau das möchte ich nicht finde aber nicht den weg um die begrenzung generell aufzuheben (
nonvcl).
gruss