procedure TForm1.BitBtn1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If key = vk_return then
selectnext(sender as twincontrol,true,true);
end;
이렇게 했는데 enter key 가 않되요 다른(ex)F1,.... '0'....'9' 등은 다먹는디
메인폼은 MDI고요 버튼은 additional의 TBitBtn 입니다
고수님들의 많은 가르침 부탁드립니다 .
> procedure TForm1.BitBtn1KeyDown(Sender: TObject; var Key: Word;
> Shift: TShiftState);
> begin
> If key = vk_return then
> selectnext(sender as twincontrol,true,true);
> end;
> 이렇게 했는데 enter key 가 않되요 다른(ex)F1,.... '0'....'9' 등은 다먹는디
> 메인폼은 MDI고요 버튼은 additional의 TBitBtn 입니다
> 고수님들의 많은 가르침 부탁드립니다 .
>
^^;
저도 그것 때문에 어제...고생을 했는데....^^
아마 이미 그 이유를 찾았을지도...
비트맵버튼을 이용할때 yes,ok버튼을 쓰면
enter = tab이 안먹더라구요...
첫째는 비트맵을 쓰시지 않는다.
둘째는 비트맵버튼을 쓰는 대신 비트맵을 다른 그림으로 교체하시고
다시 해보세요
그럼...^^