Imitation qq Bubble Chat

Tried several schemes, want to imitate QQ bubble chat, always not satisfactory. Online is a lot of Android and HTML examples, Delphi did not find, can only try to toss their own.

1. Loading local HTML with WebBrowser, repeatedly tossing and losing.

Encountered the problem is (1) CSS3 effect Display (2) is not familiar with JS, did not understand how to load records, refresh data.

2. Vclform loading Fmxform, the effect is out, with a small difference, but the result or failure.

The problem is (1) using the Firemonkey control has a few errors not done (2) after referring to the FMX related units, the compiled EXE volume expansion is not small.

Finally, the idea was realized with a form, and the next step was to integrate it into the project.

Toss out the effect and then look back, the principle is actually relatively simple, is the use of Tcanvas draw a rounded rectangular area, and then DrawText.

The issue to be aware of in the process is the width calculation of the text area.

Effect:

　　

Follow up to strive for perfection under, do (1) Show pictures (2) Adjust the bottom frame style (3) bottom box color and font color.

Imitation qq Bubble Chat