当前位置: 代码迷 >> .NET面试 >> 請zswang(伴水清清)(专家门诊清洁工)進來領分!该怎么解决
  详细解决方案

請zswang(伴水清清)(专家门诊清洁工)進來領分!该怎么解决

热度:213   发布时间:2016-05-04 22:27:31.0
請zswang(伴水清清)(专家门诊清洁工)進來領分!!!

多謝zswang(伴水清清)(专家门诊清洁工)幫我解決了心中多年的困惑!!!

------解决方案--------------------
什么困惑,说来听听
------解决方案--------------------
接分~
------解决方案--------------------
接分 伴水说不介意你把分给我
------解决方案--------------------
我也来抢分
------解决方案--------------------
伴水人品不错,
他不介意你把分全给我
------解决方案--------------------
up
------解决方案--------------------
UP

------解决方案--------------------
分散了吧!!就是做一下翻译而已,没花什么功夫

unit Unit1;

interface

uses
WinTypes, WinProcs, Messages, Classes, Controls,
Forms, Dialogs;

type
TForm1 = class(TForm)
private
{ Private declarations }
procedure WMSysCommand(var Msg: TWMSysCommand); message
WM_SYSCOMMAND;
public
{ Public declarations }
end;

var
Form1: TForm1;

{Our user defined window message}
const
SC_TEST = WM_USER+1;

implementation

{$R *.DFM}

{Add separator and new menu item}
procedure TForm1.FormCreate(Sender: TObject);
begin
AppendMenu(GetSystemMenu(Handle, FALSE), MF_SEPARATOR, 0, ' ');
AppendMenu(GetSystemMenu(Handle, FALSE), MF_STRING, SC_TEST, 'Test ');
end;

{Respond to our new menu}
procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
if Msg.CmdType = SC_TEST then
MessageDlg( 'Test ', mtInformation, [mbOK], 0)
else
inherited;
end;

end.

------解决方案--------------------
散分??
那要接一下!
不然对不起伴水!
------解决方案--------------------
散分??
那要接一下!
不然对不起楼主!
  相关解决方案