Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- //---------------------------------------------------------------------------
- #include <vcl.h>
- #pragma hdrstop
- #include "Unit3.h"
- #include "Unit1.h"
- //---------------------------------------------------------------------------
- #pragma package(smart_init)
- #pragma resource "*.dfm"
- TForm3 *Form3;
- //---------------------------------------------------------------------------
- __fastcall TForm3::TForm3(TComponent* Owner)
- : TForm(Owner)
- {
- }
- //---------------------------------------------------------------------------
- extern a;
- void __fastcall TForm3::Button1Click(TObject *Sender)
- {
- if (a == 1) {
- Form1 -> ListBox1->Items->Add("proszkowa " + Edit1 -> Text);
- a = 0;
- Form3 -> Visible = false;
- }
- if (a == 2) {
- Form1 -> ListBox1->Items->Add("pianowa " + Edit1 -> Text);
- a = 0;
- Form3 -> Visible = false;
- }
- if (a == 3) {
- Form1 -> ListBox1->Items->Add("sniegowa " + Edit1 -> Text);
- a = 0;
- Form3 -> Visible = false;
- }
- if (a == 4) {
- Form1 -> ListBox1->Items->Add("mglowa " + Edit1 -> Text);
- a = 0;
- Form3 -> Visible = false;
- }
- }
- //---------------------------------------------------------------------------
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement