버튼에 포커스만 주고싶습니다.
클릭발생안되게.. 좀
procedure TForm1.CurrencyEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=VK_RETURN then
Button2.setfocus; //포커스만 주는데도
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage('af'); //실행된다.
그러면 ..
그렇게 될수도 있는뎅..
만약에 제말이 맞다면은 .
button의 kind 프로퍼티가 bkcustom으로 되어
있는지 확인해 보세염..
만약 bkOk로 되어 있으면 폼에 엔터키가 먹는순간 버튼이
클릭됩니다.
그럼...
won wrote:
> 버튼에 포커스만 주고싶습니다.
> 클릭발생안되게.. 좀
>
>
> procedure TForm1.CurrencyEdit1KeyDown(Sender: TObject; var Key: Word;
> Shift: TShiftState);
> begin
> if key=VK_RETURN then
> Button2.setfocus; //포커스만 주는데도
> end;
>
> procedure TForm1.Button2Click(Sender: TObject);
> begin
> showmessage('af'); //실행된다.
>