안녕하세
반갑습니다.
어려움 문제 나타나 질문을 드립니다.
procedure TFmacolorse.RadioButton1Click(Sender: TObject);
begin
...............
end;
procedure TFmacolorse.comboin;
begin
RadioButton1Click(Sender);또는
RadioButton1Click(Sender as TObject);또는
RadioButton1Click(Self);
end;
이렇게 하면 에러 없이 실행이 잘 됩니다.
procedure TFmacolorse.kg1KeyPress(Sender: TObject; var Key: Char);
begin
..............
..............
end;
procedure TFmacolorse.kg3KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
kg1keyPress(Sender as TObject, var Key : Char); 이렇게 하면 아래와 같은 에러가 발생 합니다.
[Error] macolorse.pas(2665): Type expected but 'END' found
kg1keyPress(Sender as TObject, Key ); 이렇게 하면 아래와 같은 에러가 발생 합니다.
[Error] macolorse.pas(2663): Types of actual and formal var parameters must be identical
end;
RadioButton과 다른점은 Key 값이 추가가 된것 이외는 없는데....
하나는 Word이고 다른 하나는 Char뿐인데....
Char--> Word변환, Word-->Char로 변환이 가능한지 알고 싶습니다.
해결 할 수 있는 답변을 부탁 드립니다.
저는 kg1KeyPress값을 이용을 해야 원하는 값을 얻을 수 있습니다.
감사 합니다.
Shift: TShiftState);
var
cKey:Char;
begin
cKeyr:=Char(Key);
kg1keyPress(kg1, cKey);
end;