Caption() formy w C++Builder

[lzommer]

Nie wiem jak uaktualnić nowy Caption formy. Repaint czy Refresh czy Invalidate nie daje skutku. Musze zrobić Hide() i ponownie Show(), żeby uaktualnic Caption. Czy jest inny prostszy sposób?
To jest fragment kodu. Ma podać czas obliczen w Caption formy calcF. Czy zrobie to w osobnym wątku, czy na stronie formy w jakimkolwiek Events - skutek ten sam.

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

if (!Initialization)
       {
          //calcF->Invalidate();
          calcF->Caption= "Expected calculation time of the line "+ ActLine +":  "+ hs_str +" h "+ ms_str +" min "+ ss_str +" s";
          //calcF->Update();
          calcF->Hide();
          calcF->Show();

       }

[Mironas]

Co to jest 'Initialization'?
Caption zazwyczaj odświeża się bez problemów.

[Cyfrowy Baron]

W jakim zdarzeniu (Events) to robisz? Zdarzenia nie wykonują się cały czas, np. zdarzenie OnShow dla Formularza wykonuje się tylko raz gdy formularz je pokazywany, czyli tutaj zadziała dopiero jak wywołasz dla formularza funkcję Show o ile formularz wcześniej nie był widoczny. Jeżeli chcesz, żeby wartość Caption zmieniała się cyklicznie w jakichś odstępach czasu umieść na formularzu komponent TTimer, utwórz dla niego zdarzenia OnTimer i umieść w nim ten kod. Właściwość Enabled obiektu Timer włącza (true) wyłącza zegar (false);

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 /* włączenie zegara w zdarzeniu OnClick przycisku Button1 */
 
 Timer1->Enabled = true;
}
//-----------------------------------------------------------------------
/* zdarzenie OnTimer obiektu Timer */
void __Fastcall TForm1::Timer1Timer(TObject *Sender)
{
 if ( !Initialization )
 {
  calcF->Caption = "Expected calculation time of the line "+ ActLine + ":  " + hs_str + " h " + ms_str + " min " + ss_str + " s";
 }
}

Właściwość Interval obiektu Timer określa częstotliwość pracy zegara 1000 = 1 sekunda.

[lzommer]

W jakim zdarzeniu (Events) to robisz? [...]

Właściwość Interval obiektu Timer określa częstotliwość pracy zegara 1000 = 1 sekunda.[/quote]W momencie zakonczenia fragmentu kodu Initialization chce w Caption podac przewidywany czas nastepnych obliczen. Obliczenia sa prowdzone w osobnym watku. I niestety bez Hide i Show Caption sie nie aktualizuje. Probowalem umiescic to wyswietlenie w event formy OnPaint, ale skutek ten sam.
Hide i Show powoduje " zadrganie" screenu i dlatego chcialbym tego uniknac.

[Corvis]

Pamiętaj, że w wątku nie możesz aktualizować kontrolek wizualnych VCL !!

Wrzuć tu projekt jak to nie tajemnica albo chociaż kod z wątka

[Mironas]

Obliczenia sa prowdzone w osobnym watku

W jaki sposób tworzysz wątek?
Jeśli zmiana Caption-a odbywa się w wątku TThread to powinieneś użyć funkcji Synchronize():

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

Synchronize(UpdateCaption);

void __fastcall JWatek1::UpdateCaption()
{
Form1->Caption = "Updated in a thread";
}
 

[lzommer]

Obliczenia sa prowdzone w osobnym watku

W jaki sposób tworzysz wątek?
Jeśli zmiana Caption-a odbywa się w wątku TThread to powinieneś użyć funkcji Synchronize():[...]

Wielkie dzieki za zainteresowanie!!!
Ale jak przekazac parametry dla Caption?
W
Synchronize(UpdateCaption)
nie ma miejsca na parametry, a ja powinienem przekazac obliczony czas do Caption.
Bez parametrow owszem dziala, ale co z tego.

[lzommer]

Jeszcze wyjaśnie, że probowalem napisac UpdateCaption(AnsiStrina h, AnsiString m, AnsiString s) i Synchronize(UpdateCaption(h,m,s))
ale tego kompilator nie przyjmuje.
Przepraszam, ale nie wiem komu z Was odpowiadam. Czy Wszystkim?
Nie wiem czy i jak sie wybiera adresata odpowiedzi.

[Mironas]

Wyjaśnię dokładniej.

W wątku tworzysz funkcję UpdateCaption() - bez żadnych parametrów wejściowych. Nazwa funkcji jest dowolna.
Wewnątrz tej funkcji wykonujesz:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

Form1->Caption = "Ala ma kota";

Funkcje tą wywołujesz w dowolnym zdarzeniu lub w innej funkcji przez Synchronize(...):

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

Synchronize(UpdateCaption);

Jeśli chcesz przekazać jakieś parametry to musisz to zrobić za pomocą zmiennych globalnych w wątku. Czyli w pliku nagłówkowym wątku (np.: JWatek1.h) umieszczam:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

private:
  int ilosc;
 

A w pliku CPP wątku dajesz:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall JWatek1::Execute()
{
  ilosc = 0;
  for (int i=0 ; i<1000 ; i++)
  {
    if (Terminated)
      break;
    ilosc++;
    Synchronize(UpdateCaption);
    Sleep(1);
  }
  FreeOnTerminate = true;
}
//---------------------------------------------------------------------------
void __fastcall JWatek1::UpdateCaption()
{
  Form1->Caption = "Ala ma kotów: " + IntToStr(ilosc);
}
//---------------------------------------------------------------------------
 

Ten przykład dotyczy wątków tworzonych za pomocą klasy TThread.
W BCB 6: File >> New >> Other >> Thread Object

[lzommer]

Serdeczne dzięki.
Nie liczyłem na tak szybką i dokładną odpowiedź.