화면에 Edit, Button, Treeview, Listview가 있고요...
Treeview와 Listview에는 각각 아이템이 하나씩 있습니다.
버튼을 눌렀을때 포커스가 트리아이템에 있는지 아님
리스트뷰에 있는지 여부를 일고 싶은데 에러가 발생하네요...
고수님들의 한수 가르침을 바랍니다.
procedure TForm1.Button1Click(Sender: TObject);
begin
if TreeView1.Selected.Focused then Edit1.Text := 'Focused On Treeview'
else if ListView1.Selected.Focused then Edit1.Text := 'Focused On Listview'
else Edit1.Text := '';
end;
그럼....
그건 .. Focused란 Property를 확인해 보면 됩니다..
Boolean 형 이에요...
IF ListView1.Focused Then ShowMessage('ListView에 Focus가 있네요.')
Else IF TreeView1.Focused Then ShowMessage('TreeView에 Focus가 있네요.');
그럼 이만..
꾸벅...
꼭대기에 오르지 못한이에겐 꿈이 있기에 행복하다
늘 푸르고 큰 꿈을 가지고 살아가는 사나이 노 을