|
하나의 폼에 숫자판를 만들어서 NumEdit에 각납된 숫자를 메인폼에 그 값을 보낼려고 합니다.
MainForm 숫자를 받아올 Edit를 클릭해서 숫자판 폼을 열었는데... 핸들을 못잡아서 일까 한번더 클릭해야만 그 값이 들어가게 됩니다. 그러자 또다시 계산기 폼이 열리네요 - -;
// MainForm에서 Edit( 파넬로 만들었슴) MouseDown함
void __fastcall TMainForm::NumberMouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
NumberSelForm->Show(); // 숫자판용 폼개시
if ( NumberSelForm->OKBtn->ModalResult == mrOk) { // 숫자판용에서 OK를 클릭했으면
Number->Caption = NumberSelForm->NumEdit->Caption; // 갖고온 숫자를 클릭한Number에넣음
}
// 여기서 부터가 숫자용 폼입니다
static void CameraSelectEdit( short data) // 숫자 넣음
{
char buf[ 8];
sprintf( buf, "%d", data);
if ( NumberSelForm->NumEdit->Caption == 0){
NumberSelForm->NumEdit->Caption = buf;
} else {
NumberSelForm->NumEdit->Caption = NumberSelForm->NumEdit->Caption + buf;
}
}
void __fastcall TNumberSelForm::Num0Click(TObject *Sender)
{
CameraSelectEdit( 0); // 0을 클릭함
}
........... 0에서 9까지 있는데 생략함..
//
// 여기서 메인폼에 어떻게 보내야 할지 모르겠습니다.. 도와주세요 - -;
void __fastcall TNumberSelForm::OKBtnClick(TObject *Sender)
{
// 뭔가가 부족한 느낌.... - -;
//
NumberSelForm->Close(); // 보낼숫자를 결정해서 지금의 폼은Close함
}
// Cancel
void __fastcall TNumberSelForm::ClearBtnClick(TObject *Sender)
{
NumEdit->Caption = 0;
FormCreate( this);
}
|