Question

delphi 实现异型窗体

想让窗体看起来有点新意，比如根据图片的样式形成窗体，或者形成其他好看点的窗体，有的人说用raize控件可以实现，知道怎样实现的麻烦稍微讲解下不要只是说什么可以实现什么可以实现。感激不尽...

Answer 1

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;

type
TForm1 = class(TForm)
Image1: TImage;
procedure FormCreate(Sender: TObject);
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
procedure WMEraseBkgnd(var m:TWMEraseBkgnd); message WM_ERASEBKGND;
procedure WMWinPosChanging(var Message: TWMWindowPosChanging); message WM_WINDOWPOSCHANGING;
public
{ Public declarations }
protected
procedure CreateParams(var Params: TCreateParams); Override;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Brush.Style := bsClear;
BorderStyle := bsNone;
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
end;

procedure TForm1.WMEraseBkgnd(var m:TWMERASEBKGND);
begin
m.Result := LRESULT(false);
end;

procedure TForm1.WMWinPosChanging(var Message: TWMWindowPosChanging);
begin
Invalidate;
end;

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.WndParent := 0;
//把此窗口设为Desktop型的
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
ReleaseCapture;
SendMessage(Handle, WM_SYSCOMMAND, SC_MOVE or HTCLIENT, 0);
self.hide;
self.Show;
end;
end;

end.