Show hide panel

[MOGSY]

Hi

I am using a websockets and on receive of a message I would like to show a panel and make it visible. For some reason this is not happening, if the show hide is done from button is OK but not from the event.

The component could be panel of memo etc but make no difference. The contents gets updated but the screen not refreshed.

Appreciate any feedback.

 

procedure TMainForm.sgcWebSocketClient1Message(Connection: TsgcWSConnection;
  const Text: string);
begin
  uniMemo1.lines.add(Text);     //memo get updated with the text but memo stays invisible.
  UniMemo1.Visible := not UniMemo1.Visible;
end;

procedure TMainForm.UniButton1Click(Sender: TObject);
begin
  uniMemo1.lines.add('Button clicked');
  UniMemo1.Visible := not UniMemo1.Visible;
end;
 

Regards