Question

我在自定义按钮上使用 onPaint 事件处理程序，但我不知道该写什么来获取图像列表或为此按钮添加标题。

 procedure TForm1.TitleBarPanel1CustomButtons0Paint(Sender: TObject);
 begin
   ...
 end;

Answer 1

在这个事件处理程序中，results <- do.call(rbind,lapply(1:length(data_list), function(x) { results = metagen(data = data_list[[x]], TE = b, pval = p, level.ci = 0.95, lower = lci, upper = uci, studlab = id, method.tau = "PM", sm = "MD", hakn = F, adhoc.hakn = "ci", title = data_list[[x]]$id[1]); data.frame(title = results$title, fe_effect = results$TE.fixed, fe_lower = results$lower.fixed, fe_upper = results$upper.fixed, fe_p = results$pval.fixed, re_effect = results$TE.random, re_lower = results$lower.random, re_upper = results$upper.random, re_p = results$pval.random, q = results$Q, q_df = results$df.Q, q_p = results$pval.Q, tau2 = results$tau2, tau2_se = results$se.tau2, tau = results$tau, h = results$H, i1 = results$I2) })) 实际上是一个 > results title fe_effect fe_lower fe_upper fe_p re_effect re_lower re_upper re_p q q_df q_p tau2 tau2_se tau h i1 1 e1_o1 1 0.7113249 1.288675 1.125116e-11 1 0.7113249 1.288675 1.125116e-11 0 2 1 0 0.06507944 0 1 0 2 e1_o1 1 0.7113249 1.288675 1.125116e-11 1 0.7113249 1.288675 1.125116e-11 0 2 1 0 0.06507944 0 1 0。您可以将其转换为访问他的属性，例如 Sender。有了 TSystemTitlebarButton，您可以绘制任何需要的东西。

简单使用示例：

Canvas

如何 Delphi“VCL 表单的自定义标题栏”向自定义按钮添加标题或字形？

1 个答案: