安卓APP信息提示框

procedure THeaderFooterForm.Button1Click(Sender: TObject);
begin
 ShowMessage('与原来的一样哦！'); //消息提示方法一
end;

procedure THeaderFooterForm.Button2Click(Sender: TObject);
begin
 Toast('消息提示方法二', LongToast);
end;

procedure THeaderFooterForm.Button3Click(Sender: TObject);
begin
Toast('消息提示方法二', ShortToast);
end;

procedure THeaderFooterForm.Button4Click(Sender: TObject);
begin
TToast.Show('消息提示方法3。', False);
end;

procedure THeaderFooterForm.Button5Click(Sender: TObject);
begin
TToast.Show('消息提示方法3。', True);
end;