Delphi浏览查看BMP图片文件,本程序要用到剪贴板,打开图片后将其装入tab中显示,如果tab目前对应clipboard并且在简帖版中的位图可用,则设置图片的属性可见,同时本程序还实现了图片的复制和剪切功能,通过拷贝和删除实现剪切:
begin
// 装入tab对应的页
TabNum := TabControl1.Tabs.IndexOf ('Clipboard');
if TabNum < 0 then
// 如果不存在则为clipboard创建一个新页
TabNum := TabControl1.Tabs.Add ('Clipboard');
// 将焦点设到该页并使之重绘
TabControl1.TabIndex := TabNum;
TabControl1Change (Self);
end;
procedure TBmpViewer.mDelClick(Sender: TObject);
begin
with TabControl1 do
begin
if TabIndex >= 0 then
//如果存在图片,则删除它
Tabs.Delete (TabIndex);
if Tabs.Count = 0 then
Image1.Visible := False
else //如果所有的tab夜都被删除,则使image1不可见
TabControl1Change (Self);
end;
end;