如何做出这种窗体效果?

2001-06-08 11:08:00 135 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

C# 非模态窗体（show）实现模态窗体（ShowDialog）的效果模态窗体（ShowDialog）打开后，后面的主窗体就不能做任何操作了。本博客要实现非模态窗体（show）实现模态窗体（ShowDialog）的一些效果（主窗体关闭，子窗体也要关闭。子窗体只能打开一个。）同时，保留非模态窗体的一些特性（主窗体和子窗体都能操作，比如文本的书写等）。现实的一些用处：1、比如要在主窗体中写已有的内容，用子窗体显示这些已有的内容（一般信息比较多，无法阅读详情

如何做出这种窗体效果?就像股票分析软件中的"分析家4.0"的类似淡入淡出的效果.

...全文

C# 边框阴影窗体效果 using System;using System.Collections.Generic;using System.ComponentModel;using System.Data;using System.Drawing;using System.Linq;using System.Text;using System.Windows.Forms;using System.Runtime.InteropServices;namespace test{ public partial class For 阅读详情

paranoea

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

say 2001-06-10

打赏
举报

试试
AnimateWindow(handle,300,AW_HIDE or AW_CENTER);

paranoea 2001-06-10

打赏
举报

看不明白

rh 2001-06-10

打赏
举报

看不明白？嘿~~~~sorry~~~~

rh 2001-06-09

打赏
举报

procedure TFormDaisy.ButtonFadeOutClick(Sender: TObject);
VAR
Bitmap : TBitmap;
i : INTEGER;
j : INTEGER;
Row : pRGBTripleArray;
RowBase: pRGBTripleArray;
step : INTEGER;
begin
Bitmap := TBitmap.Create;
TRY
Bitmap.PixelFormat := pf24bit;
Bitmap.Width := ImageRGB.Width;
Bitmap.Height := ImageRGB.Height;

FOR step := 32 DOWNTO 0 DO
BEGIN
FOR j := 0 TO Bitmap.Height-1 DO
BEGIN
RowBase := BitmapBase.Scanline[j];
Row := Bitmap.Scanline[j];

FOR i := 0 TO Bitmap.Width-1 DO
BEGIN // 32 = 2^5
Row[i].rgbtRed := (step * RowBase[i].rgbtRed ) SHR 5;
Row[i].rgbtGreen := (step * RowBase[i].rgbtGreen) SHR 5;
Row[i].rgbtBlue := (step * RowBase[i].rgbtBlue ) SHR 5
END
END;

ImageRGB.Picture.Graphic := Bitmap;

// Use API calls to avoid flicker.
// See VCL Repaint alternative in FadeIn
InvalidateRect(FormDaisy.Handle, NIL {whole window},
FALSE {don't erase background});
RedrawWindow(FormDaisy.Handle, NIL, 0, RDW_UPDATENOW);
END
FINALLY
Bitmap.Free;
END;
end;

procedure TFormDaisy.ButtonFadeInClick(Sender: TObject);
VAR
Bitmap : TBitmap;
i : INTEGER;
j : INTEGER;
Row : pRGBTripleArray;
RowBase: pRGBTripleArray;
step : INTEGER;
begin
Bitmap := TBitmap.Create;
TRY
Bitmap.PixelFormat := pf24bit;
Bitmap.Width := ImageRGB.Width;
Bitmap.Height := ImageRGB.Height;

FOR step := 0 TO 32 DO
BEGIN
FOR j := 0 TO Bitmap.Height-1 DO
BEGIN
RowBase := BitmapBase.Scanline[j];
Row := Bitmap.Scanline[j];

FOR i := 0 TO Bitmap.Width-1 DO
BEGIN // 32 = 2^5
Row[i].rgbtRed := (step * RowBase[i].rgbtRed ) SHR 5;
Row[i].rgbtGreen := (step * RowBase[i].rgbtGreen) SHR 5;
Row[i].rgbtBlue := (step * RowBase[i].rgbtBlue ) SHR 5
END
END;

// This is just as effective as the API calls.
// (See API call alternative in FadeOut.)
ImageRGB.Picture.Graphic := Bitmap;
ImageRGB.Repaint
END
FINALLY
Bitmap.Free;
END;

sweihua 2001-06-08

打赏
举报

最好是在生成动画的软件中做.
在delphi中做也可以
用TCanvas.CopyRect就可以满足你的要求, 不过速度不一定保证
下面是某一种算法
procedure TForm1.Button2Click(Sender: TObject);
var
newbmp: TBitmap;
i,bmpheight,bmpwidth:integer;
begin
newbmp:= TBitmap.Create;
newbmp.Width:=image1.Width;
newbmp.Height:=image1.Height;
bmpheight:=image1.Height;
bmpwidth:=image1.Width;
for i:=0 to bmpheight do
begin
Sleep(100);
newbmp.Canvas.CopyRect(Rect(0,bmpheight-i,bmpwidth,bmpheight),
image1.Canvas,
Rect(0,0,bmpwidth,i));
form1.Canvas.Draw(120,100,newbmp);
end;
newbmp.free;
end;

如何做出这种窗体效果?

相关推荐