Frequently Asked Component Specific Questions

Options

Display all FAQ items

Search FAQ items:


Displaying items 1 to 1 of 1, page 1 of 1

<< previous next >>

THTMLPopup
Showing a HTML Popup in the bottom right of the form

This code snippet shows how you can shows a HTMLPopup in the bottom right corner of your form:
procedure TForm2.Button3Click(Sender: TObject);
var
  pt: TPoint;
  r: TRect;
begin
  r := ClientRect;
  pt := Point(r.Right, r.Bottom);
  pt := ClientToScreen(pt);

  HTMLPopup1.Text.Text := 'Hello world';
  HTMLPopup1.PopupWidth := 200;
  HTMLPopup1.PopupHeight := 200;

  HTMLPopup1.PopupLeft := pt.X - HTMLPopup1.PopupWidth;
  HTMLPopup1.PopupTop := pt.Y - HTMLPopup1.PopupHeight;
  HTMLPopup1.Show;
end;