자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Delphi Edit창에 SelectAll 전체선택
2015.04.17 02:28
모바일이고 XE7사용중입니다.
Edit창에서 가상키보드가 뜨고 Focus 가 생기면서 입력되어있던 텍스트들을 전체선택을 하려고합니다.아래와같이 스타일북을 이용해서 리스트박스에 생성하고 값을입력한후 텍스트 재입력하려고 Edit창 선택하면 전체선택이 되질않습니다.혹시 왜안되지 알고계시면 답변부탁드립니다..
while (not Eof) dobegin Item := TListBoxItem.Create(nil); Item.Parent:= LB; Item.StyleLookup := 'aa1';
Item.StylesData['y_Edit']:= fsFloatToStr(FieldByName('y').AsFloat); Item.StylesData['y_Edit.OnEnter']:= TValue.From<TNotifyEvent>(DoYEnter);
Next;end;
procedure TJFrame. DoYEnter(Sender: TObject);var atEdit : Tedit; Item : TListBoxItem;begin Item := TListBoxItem(FindItemParent(Sender as TFmxObject, TListBoxItem)); if Assigned(Item) then begin atEdit := Item.FindStyleResource('y_Edit') as TEdit; atEdit.SetFocus;
atEdit.SelectAll;
end;
end;
댓글 0
Delphi Edit창에 SelectAll 전체선택
2015.04.17 02:28
모바일이고 XE7사용중입니다.
Edit창에서 가상키보드가 뜨고 Focus 가 생기면서
입력되어있던 텍스트들을 전체선택을 하려고합니다.
아래와같이 스타일북을 이용해서 리스트박스에 생성하고
값을입력한후 텍스트 재입력하려고 Edit창 선택하면 전체선택이 되질않습니다.
혹시 왜안되지 알고계시면 답변부탁드립니다..
while (not Eof) do
begin
Item := TListBoxItem.Create(nil);
Item.Parent:= LB;
Item.StyleLookup := 'aa1';
Item.StylesData['y_Edit']:= fsFloatToStr(FieldByName('y').AsFloat);
Item.StylesData['y_Edit.OnEnter']:= TValue.From<TNotifyEvent>(DoYEnter);
Next;
end;
procedure TJFrame. DoYEnter(Sender: TObject);
var
atEdit : Tedit;
Item : TListBoxItem;begin
Item := TListBoxItem(FindItemParent(Sender as TFmxObject, TListBoxItem));
if Assigned(Item) then
begin
atEdit := Item.FindStyleResource('y_Edit') as TEdit;
atEdit.SetFocus;
atEdit.SelectAll;
end;
end;