Wszystko ładnie chodzi ale chciałbym oddzielić okno z wiadomościami od konsoli. W tym celu zbudowałem nowe okno TForm2, a nowe komponenty nazwałem tak jak w kursie. Niestety nie wiem jak zmusić program do przesyłania komunikatów między oknami...
- Kod: Zaznacz cały
void __fastcall TForm2::Button3Click(TObject *Sender)
{
String time = " (" + TimeToStr(Now().FormatString("hh:nn:ss")) + ")";
if (IsServer)
{
MemoKomunikaty->Lines->Add(TForm2::User1->Text + time + ":\n" +
EditKomunikat->Text + "\n-------------------");
for(int x = 0; x < TForm1::ServerSocket1->Socket->ActiveConnections; x++) // E2231 Member TForm1::ClientSocket1 cannot be used without an object
{
TForm1::ServerSocket1->Socket->Connections[x]->SendText(User1->Text + time + ":\n" +
EditKomunikat->Text + "\n-------------------"); // E2231 Member TForm1::ClientSocket1 cannot be used without an object
}
}
else
{
TForm1::ClientSocket1->Socket->SendText(User1->Text + time + ":\n" +
EditKomunikat->Text + "\n-------------------"); // E2231 Member TForm1::ClientSocket1 cannot be used without an object
}
EditKomunikat->Text = "";
MemoKomunikaty->SetFocus();
Application->ProcessMessages();
EditKomunikat->SetFocus();
}
Czy moglibyście opisać jak trzeba zmienić program? Jestem totalnie początkujący..




teoria

