想实现以下的窗体:
1、窗体标题栏不显示图标。
2、窗体能改变大小。
3、窗体的标题要靠左显示。
1、窗体标题栏不显示图标。
2、窗体能改变大小。
3、窗体的标题要靠左显示。
解决方案 »
- 网上有大量的AES算法的例子,而且都是同一个例子
- delphi2010 隐藏窗体
- Delphi未来发展的Q&A(borland重要趋势消息)
- 求助:[Fatal Error] File not found: 'IdWinsock.dcu' 这个idwinsock是个什么东西啊!
- 这句不解 RichEdit1.perform(em_setsel,0,0) ???
- 请问各位,DELPHI中那个报表更好用呢??
- 录求最快的 进制转换方法~(byte -> string,hex -> binary...)
- 怎样添加一个需要调用的函数(此函数序自己写)
- 回车不触发KeyDown的原因?
- 一个insert语句的问题,急!!!!!
- 怎么得到光标在控件上的相对位置?
- Bitmap如何用scanline读取每一个像素的颜色(TColor型),并保存到一个数组中???
program PMyWindowClass;uses
Windows,
Messages,
SysUtils;type
TMyWindow = class(TObject)
private
{ Private declarations }
WindowClass: WndClass;
hWindow: HWnd;
AMessage: TMsg;
FAppName : String;
FWndProc : TFNWndProc; function WinRegister : Boolean; virtual;
procedure CreateMyWindow;
public
{ Public declarations }
constructor Create;
destructor Destroy; override;
procedure WinCreate; virtual;
procedure MyRun; property ApplicationName : String read FAppName write FAppName;
property WindowProcedure : TFNWndProc read FWndProc write FWndProc;
end;const
AppName = 'MyClassDemo';var
myWindow : TMyWindow;{ TMyWindow }constructor TMyWindow.Create;
begin
end;destructor TMyWindow.Destroy;
begin
inherited;
end;procedure TMyWindow.CreateMyWindow;
begin
hWindow := CreateWindow(AppName, '空',
ws_OverlappedWindow, cw_UseDefault, cw_UseDefault,
cw_UseDefault, cw_UseDefault, 0, 0, system.MainInstance, nil); if hWindow <> 0 then begin
ShowWindow(hWindow, CmdShow);
ShowWindow(hWindow, SW_SHOW);
UpdateWindow(hWindow);
end;
end;procedure TMyWindow.WinCreate;
begin
if WinRegister then
begin
CreateMyWindow;
end;
end;function TMyWindow.WinRegister : Boolean;
begin
WindowClass.Style := cs_hRedraw or cs_vRedraw;
WindowClass.lpfnWndProc := FWndProc;
WindowClass.cbClsExtra := 0;
WindowClass.cbWndExtra := 0;
WindowClass.hInstance := system.MainInstance;
WindowClass.hIcon := LoadIcon(0, idi_Application);
WindowClass.hCursor := LoadCursor(0, idc_Arrow);
WindowClass.hbrBackground := GetStockObject(WHITE_BRUSH);
WindowClass.lpszMenuName := nil;
WindowClass.lpszClassName := PChar(FAppName); Result := RegisterClass(WindowClass) <> 0;
end;//
//Window Message Handling Procedure
//
function WindowProc(Window: HWnd; AMessage: UINT; WParam : WPARAM;
LParam: LPARAM): LRESULT; stdcall; export; var
dc : hdc;
ps : TPaintStruct;
r : TRect;begin
WindowProc := 0; case AMessage of
WM_PAINT :
begin
dc := BeginPaint(Window,ps);
GetClientRect(Window,r);
DrawText(dc,'窗口的标题',-1,r,
DT_SINGLELINE or DT_CENTER or DT_VCENTER);
EndPaint(Window,ps);
Exit;
end;
wm_Destroy:
begin
PostQuitMessage(0);
Exit;
end;
end; WindowProc := DefWindowProc(Window, AMessage, WParam, LParam);
end;procedure TMyWindow.MyRun;
begin
while GetMessage(AMessage, 0, 0, 0) do begin
TranslateMessage(AMessage);
DispatchMessage(AMessage);
end;
Halt(AMessage.wParam);
end;begin
myWindow := TMyWindow.Create;
myWindow.ApplicationName := AppName;
myWindow.WindowProcedure := TFNWndProc(@WindowProc);
myWindow.WinCreate;
try
myWindow.MyRun;
finally
FreeAndNil(myWindow);
end;
end.