프로시저로서 String의 문자를 받아오는것을 그 문자로 버튼이름으로사용하려고하는데 잘 안되여!! 사용 예는....
-------------------------------
procedure TForm1.btn_message(msg : String);
라는 프로시저에서 msg에 들어있는 문자를....
msg.caption := '현재는 입력모드입니다.';
msg.SetFocus;
이렇게 caption에 문자를 넣구 그버튼으로 Focus로 이동하려합니다.
근데 버튼의 name을 문자로 표현을 하기가 힘들거라구여!
고수님들의 조언 부탁드립니다.
짧은 생각에는 msg가 버튼 이름이지 싶은데..^^;;
만약 버튼이름이라면 프로시져에서 값을 받아오실때..속성이 String이 아니라
TButton입니다. ^^
// 선언부에 일케 선언해주시고
procedure btn_message(msg : TButton);
procedure TForm1.Button2Click(Sender: TObject);
begin
// 이벤트 일어나는 곳에서 절케 호출하시고
btn_message(Button1);
end;
// ㅡ.ㅡ;; 걍 쓰시면 됩니다..꼭 msg : TButton 요런식으로 쓰셔야..^^;;
procedure TForm1.btn_message(msg : TButton);
begin
msg.caption := '현재는 입력모드입니다.';
msg.SetFocus;
End;
으아 일해야지 내일도 바쁜데 .. ㅋㅋ ^^ 고럼 즐코하세요