무식이 wrote:

> 저겨 안냐세여?

> 질문 좀 할께여... 델파이에서여,

> 각 버튼의 caption에 red,blue,green이란 이름을 쓰구,각자 버튼을 누르면 에디트박스에

> 호출되는건데여,이 때 버튼의 caption을 매개변수로 해서 red버튼을 누르면 에디트

> 박스에 red란 글자가 나오고, blue란 버튼을 누르면 에디트 박스에 blue란 글자가 나오게 해야하는데, 잘 안돼네여...(버튼은 그냥 버튼이요)

> 저 좀 도와주세여, 간단한거 같지만 첨이라 응용이 안돼서 코딩을 어떻게 해야할지,

> 답 좀 갈켜 주세여.간단한 설명과 함께 코딩을 만들어 주심 무지 감사 하겠습니당^^

> 빠른 시간내에 암나 알려 주셔여, 초보에게 많은 도움이 됩니다용!!!!

>



각 버튼을 클릭할때 버튼의 caption을 Edit1에 표시하면 됩니다.



procedure TForm1.btnRedClick(Sender: TObject);

begin

Edit1.Text := btnRed.Caption;

end;



procedure TForm1.btnBlueClick(Sender: TObject);

begin

Edit1.Text := btnBlue.Caption;

end;



procedure TForm1.btnGreenClick(Sender: TObject);

begin

Edit1.Text := btnGreen.Caption;

end;