在delphi中预览

Question

我正在Delphi中创建一个项目，想知道是否可以创建一个选项卡的预览。我的想法是让一个人将鼠标悬停在带你进入页面的面板上，然后在提示中显示预览，就像你将光标悬停在任务栏中的图标上一样。如果这是可能的，是否也可以显示页面而不是面板作为预览，然后点击它去那里？我的意思是几乎就像页面的图像，但我的问题是，我不希望它是页面的静态截图，我希望它能够显示页面的原样，并进行任何更改。这同样适用于提示(I.E不是静态图像(。

如有任何帮助和解释，我们将不胜感激。

Answer 1

要获得TTabSheet的当前视图，您应该使用一个类似以下的函数：

procedure TForm81.CopySheet(TAB: TTabSheet);
var
bmp   : TBitMap;
begin
bmp:=TBitMap.Create;
try
bmp.PixelFormat:=TPixelFormat.pf24bit;
bmp.Width:=TAB.Width; bmp.Height:=TAB.Height;
TAB.PaintTo(BMP.Canvas,0,0);
// Do what you need to with the bmp, ie. show it in a hint, a preview window, etc.
finally
bmp.Free
end
end;

基本方法是"；PaintTo"；在TAB(和大多数其他TControl(上，它将自己绘制到TCanvas(TBitmap的f.ex.，如上所述(上。

我将由你填写"；对bmp执行您需要的操作，即在提示、预览窗口等中显示它；部分：-(