용일씨 말대로 AllowChange := False;로 했는데..
문제가 생겼어요..
탭시트가 A,B 두개 있다고 했잖아요..
여기서는 A의 DbGride의 Row를 더블클릭했을때만 B탭으로 넘어가야 하는데...
AllowChange := False; 하면 A에서 더블클릭해서 B로갔다가 다시 A로 못가드라구요..
즉, A는 마스터이고, B는 디테일구조이지요..
그래서
if dbclick_flag = false then
AllowChange := False
else
AllowChange := True;
라고 했더니 아예 alllowchange가 false 로 먹히더라고요..
좀 도와주세요..
코딩에 조금만 추가하시면 되겠네요...
procedure Tform1pagecontrolChanging(.... );
begin
if PageControl1.ActivePageIndex = 0 then
AllowChange := dbclick_flag;
dbclick_flag := False;
end;
그리고 버튼 클릭에서
procedure tform1.Button1Click(sender : Tobject );
begin
dbclick_flag := True;
PageControl1.ActivePageIndex = 1;
end;
이렇게 하시면 될겁니다..
페이지 인덱스는 제가 쓴것과 다를수 있으니 조정하시구요..
테스트 안한거니까.. 코드는 확인해보세요.. 오타가 있을수도...
그럼. 즐거운시간 되세요..
- 하얀까마귀 -
레마 wrote:
> 용일씨 말대로 AllowChange := False;로 했는데..
> 문제가 생겼어요..
> 탭시트가 A,B 두개 있다고 했잖아요..
> 여기서는 A의 DbGride의 Row를 더블클릭했을때만 B탭으로 넘어가야 하는데...
> AllowChange := False; 하면 A에서 더블클릭해서 B로갔다가 다시 A로 못가드라구요..
> 즉, A는 마스터이고, B는 디테일구조이지요..
> 그래서
>
> if dbclick_flag = false then
> AllowChange := False
> else
> AllowChange := True;
> 라고 했더니 아예 alllowchange가 false 로 먹히더라고요..
> 좀 도와주세요..
>