procedure TNBIFO110.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
...
end;
부분을 프로그램내에서 호출하려면 어떡해 하지요?
procedure TNBIFO110.butten1Click(Sender: TObject);
begin
...
end;
은 프로그램내에서 호출하려면
butten1.onclick(sender) 하면 되거든요..
그데 처음것은 잘 안되네요..
꼭좀 알려 주세요.. 고맙습니다..
> procedure TNBIFO110.Edit1KeyPress(Sender: TObject; var Key: Char);
> begin
> ...
> end;
>
> 부분을 프로그램내에서 호출하려면 어떡해 하지요?
>
> procedure TNBIFO110.butten1Click(Sender: TObject);
> begin
> ...
> end;
> 은 프로그램내에서 호출하려면
> butten1.onclick(sender) 하면 되거든요..
>
> 그데 처음것은 잘 안되네요..
> 꼭좀 알려 주세요.. 고맙습니다..
안녕하세요? ...
임시변수를 하나 두고요.. 필요한 경우 아래와 같이 키 값을 준 다음..
TmpKey := #13;
Edit1KeyPress(Sender, TmpKey);