말씀하신걸 직역하면 어떤 스피드 버튼을 클릭하는게 아니라 눌러진 상태로 만든다는 말씀이시지요.
1. 스피드버튼들의 여러개의 GroupIndex를 같은 값을 주면 라디오버튼 처럼 한개씩만 눌러지고 나머지는 원상태되는 토글방식이 됩니다.
2. 하나만 눌러지고 원상태 안된게 GroupIndex만 별도 혼자 값을 주면되는되요, 토글식으로 할려면 AllowAllUp를 true해야합니다
공통적으로 GroupIndex는 0이상입니다
아래는 다른 이벤트에서 눌렸다 원상태되도록 한것입니다, 물론 버튼 속성에 미리 넣어도 됩니다
...
SpeedButton1.AllowAllUp := True;
SpeedButton1.GroupIndex := 1; //단독이라면 사용하지 않는 번호를 사용하세요
SpeedButton1.Down := not SpeedButton1.Down;
....
홍성락님 답변 감사합니다.
저의 질문을 다른방향으로 이해시신것 같씁니다.
제가질문 들인것은 스피드버튼을 클릭하여 이벤트가 실행되어야 합니다.
즉 품은 같은 폼이라도 페이지 컨트롤로 탭이 구분이 되어있는 페이지에서
다른 스피드버튼을 실행하도록 하려고 합니다.
다시한번 부탁 드립니다.
// 입력탭의 수정 스피드버튼 실행 및 에디터에 값 넣기
IF PAGECONTROL1.ActivePage = TABSHEET1 THEN
EXIT;
Try
// 입력탭 수정 스피드버튼 실행
spUPDATE.Click; // 스피드버튼 실행 이벤트
FINALLY
// 입력탭 수정 에디터에 값넣기
ED_Mdate.Text := ED_PIMDATE.TEXT;
ED_SCODE.Text := ED_PISCODE.Text;
ED_HCODE.Text := ED_PIHCODE.Text;
END;
모든분 답변 감사 합니다. 자체적으로 해결 하였습니다.
초보님들를 위해서 소스코드 올립니다.