자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

Delphi Edit창에 SelectAll 전체선택

2015.04.17 02:28

김하나 조회 수:859

모바일이고 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;
이 게시물을
목록
목록
쓰기
태그