u00204.pas

Delphi编程五大妙招源程序

unit U00204;

interface

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

type
  TForm1 = class(TForm)
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
    procedure WMGetMinMaxInfo( var Message:TWMGetMinMaxInfo); message WM_GETMINMAXINFO;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMGetMinMaxInfo( var Message :TWMGetMinMaxInfo );
begin
  with Message.MinMaxInfo^ do
  begin
    ptMaxSize.X := 200; {最大化时宽度}
    ptMaxSize.Y := 200; {最大化时高度}
    ptMaxPosition.X := 99; {最大化时左上角横坐标}
    ptMaxPosition.Y := 99; {最大化时左上角纵坐标}
  end;
  Message.Result := 0; {告诉Windows你改变了 minmaxinfo}
  inherited;
end;


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ssCtrl in Shift) and (chr(Key) in ['A', 'a']) then ShowMessage('Ctrl-A');
end;

end.