小第是Delphi7的新手请大家多关照

Question

Delphi7中form怎样不能改变它的大小？
在任务栏不显始？
怎样使先XP风各的button？

Answer 1

1.
Form1.BorderStyle := bsDialog;
2. 
procedure TForm1.FormCreate(sender:TObject);
begin
  SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
end;

Answer 2

设置两个属性：
Position    :poMainFormCenter  --------在主窗体中央
BorderStyle :bsSingle          --------固定窗体大小或：procedure TForm1.FormCreate(Sender: TObject);
var
    devmode:tDevicemode;
begin
    if screen.width<>orignwidth  then 
    begin
if  EnumDisplaySettings(nil,0,devmode)  then 
        begin
            devmode.dmfields:=dm_pelswidth   OR  dm_pelsheight ;
            devmode.dmpelswidth:=orignwidth; {宽度}
            devmode.dmpelsheight:=orignheight;{高度}
            ChangeDisplaySettings(devmode,0); {更改设置}
        end;
    end;
end;

Answer 3

给你一个例子：
把 BoardStyle 属性设置为 bsSingle.unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }  procedure Appmessage(var msg:Tmsg;var handled:boolean);
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure Tform1.Appmessage (var msg:Tmsg;var handled:boolean);
begin
 if Msg.message=WM_LButtonDown then
     begin
     if DefWindowProc(Handle,WM_NCHitTest,0,GetMessagePos)=HTClient then
      begin
       SendMessage(Handle,WM_NCLButtonDown,HTCaption,GetMessagePos);
       Handled:=true;
       end;
       end;
     end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage:=AppMessage;end;end.

Answer 4

1.Form1.BorderStyle := bssingle;
2. 
procedure TForm1.FormCreate(sender:TObject);
begin
  SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
end;
3：
使用XPmanifest组件，D7里有的，在Win32页上（只对WinXP有效）