<< 使用C++的 mutex 防治使用者連續開起令一個 exe | 回blog首頁 | 為什麼你要選擇 Solaris 跟 Java？ >>

March 27,2006

有關一個form1傳遞參數到form2然後在回傳參數回去form

以下是我用timer 所做的一個測試不知大家是否有更好的方法
1. 將 form1 的變數傳遞到form2 裡當 form2 click button 後改變form1->Edit 的 內容

form1
#include
#pragma hdrstop
#include "Unit2.h"
#include "Unit1.h"

#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
AnsiString a = "abc";
AnsiString b = "this is roger";
int change = 0;

__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}

void __fastcall TForm1::FormShow(TObject *Sender)
{
Edit1->Text = a;
Edit2->Text = b;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form2->Show();
}

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{

int i = Form2->getchange();
if(i == 1){
Timer1->Enabled = false;
Edit2->Text = change;
}

}

form2
#include
#pragma hdrstop
#include "Unit2.h"
#include "Unit1.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
AnsiString a = "abc";
AnsiString b = "this is roger";
int change = 0;

__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}

void __fastcall TForm1::FormShow(TObject *Sender)
{
Edit1->Text = a;
Edit2->Text = b;
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form2->Show();
}
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{

int i = Form2->getchange();
if(i == 1){
Timer1->Enabled = false;
Edit2->Text = change;
}

}

Posted by yam_javanull at 樂多Roodo! │20:09 │回應(2) │引用(0) │C++
樂多分類：網路/3C 共同主題：程式設計 工具：編輯本文
Ads by Roodo! 

引用URL

http://cgi.blog.roodo.com/trackback/1326280
回應文章
more detail on
http://www.programmer-club.com/pc2020v5/forum/ShowSameTitleN.asp?URL=N&board_pc2020=cb&index=4&id=11936&mode=&type_pc2020=sametitleLevel-2
Posted by roger5089 at March 27,2006 20:32
Remember the series Inside Herman's Head? ,
Posted by Ganry71 at October 23,2009 09:48


回最上方