꾸벅...
포커스가 어디에 있는가에 따라 처리를 하고자 합니다.
아래와 같이 실행시키면, 계속 else에만 걸리는데 어떻게 할지 모르겠습니다.
stringgrid에서는 한 row의 parameter값을 받아서 처리합니다.
sgd_H802의 option 은
[goFixedVertLine ,goFixedHorzLine ,goVertLine
,goHorzLine ,goColSizing ,goEditing ,goRowSelect] 이며,
sgd_H803의 option 은
[goFixedVertLine ,goFixedHorzLine ,goVertLine
,goHorzLine ,goRangeSelect ,goColSizing ,goEditing] 임다..
procedure TForm1.deleteClick(Sender: TObject);
begin
if sgd_H802.Focused = true then
begin
......
end
else if sgd_H803.Focused = true then
begin
........
end
else
begin
........
end;
end;
에러는 안나는데 뭐가 잘못일까요...부탁합니다..
> 꾸벅...
> 포커스가 어디에 있는가에 따라 처리를 하고자 합니다.
> 아래와 같이 실행시키면, 계속 else에만 걸리는데 어떻게 할지 모르겠습니다.
> stringgrid에서는 한 row의 parameter값을 받아서 처리합니다.
>
> sgd_H802의 option 은
> [goFixedVertLine ,goFixedHorzLine ,goVertLine
> ,goHorzLine ,goColSizing ,goEditing ,goRowSelect] 이며,
>
> sgd_H803의 option 은
> [goFixedVertLine ,goFixedHorzLine ,goVertLine
> ,goHorzLine ,goRangeSelect ,goColSizing ,goEditing] 임다..
>
> procedure TForm1.deleteClick(Sender: TObject);
> begin
> if sgd_H802.Focused = true then
> begin
> ......
> end
>
> else if sgd_H803.Focused = true then
> begin
> ........
> end
> else
> begin
> ........
> end;
> end;
>
> 에러는 안나는데 뭐가 잘못일까요...부탁합니다..
>
>
delete라는 게 버튼 아닌가요?
버튼 이라면 클릭하는 순간 포커스가 그 버튼으로 넘어가버리죠.
버튼 중에서 클릭했을 때 포커스가 가지 않는 건 SpeedButton 밖에 없는 것 같네요.