送分题

2002-04-15 03:49:06 126 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

从PTA天梯赛L1真题看起：新手如何用C++快速搞定编程竞赛里的“送分题”？本文通过分析PTA天梯赛L1真题，为编程竞赛新手提供快速识别和解决'送分题'的实用技巧。文章详细介绍了'送分题'的三大特征、常见解题模板、避免失分的陷阱以及高效练习的四个阶段，帮助新手在竞赛中稳拿基础分。阅读详情

一个FORM不要标题栏（上面蓝色的条）但又可以改变大小，怎么实现？
将FORM的BorderStyle设为bsNone可以去掉标题栏，但也不能改变大小了：（

...全文

软考UML真题里的“送分题”长啥样？我用2023年这道题给你拆解明白本文以2023年软考UML真题为例，详细拆解了数字图书馆系统中的类名和属性填空题的解题技巧。通过识别题干中的实体、匹配类图结构和验证完整性，考生可以快速锁定答案。文章还分享了设计模式题的快速判断方法和避免常见丢分陷阱的实用建议，帮助考生高效备考软考UML相关题目。阅读详情

ypyRock

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

ypyRock 2002-04-16

打赏
举报

zSWANg(伴水)(* pascal→c *) ：
你的方法好像有繁琐，鼠标形状怎么改变？？

FlyingQQ(FlyingQQ)：
能不能再讲详细点？？

ypyRock 2002-04-16

打赏
举报

zx_wang(wzx) :
你是用这个吗？
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do
begin
Style :=Style and (not WS_CAPTION);
Style :=Style or WS_POPUP;
end
end;

如果是其他的，我给100分你

xpony 2002-04-15

打赏
举报

你用
procedure CreateParams(var Params: TCreateParams); override;
试试
参数 Params　具体怎么设置　我忘记了:(

zx_wang 2002-04-15

打赏
举报

我有一个相当简单的办法，前提是你把50分给我

jholdnew 2002-04-15

打赏
举报

d5开发指南
此书中正好有此实例，有很妙的方法

zx_wang 2002-04-15

打赏
举报

我有一个相当简单的办法，前提是你把100分给我

FlyingQQ 2002-04-15

打赏
举报

让form的大小设置属性动态的接受设置！你试试，我不知道是否可行！

FlyingQQ 2002-04-15

打赏
举报

在程序中动态设置啊，

lovewangj 2002-04-15

打赏
举报

???

王集鹄 2002-04-15

打赏
举报

unit Unit1;

interface

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

type
TForm1 = class(TForm)
private
{ Private declarations }
procedure WMNCHITTEST(var Msg : TWMNCHITTEST); message WM_NCHITTEST;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.WMNCHITTEST(var Msg: TWMNCHITTEST);
const
cOffset = 10;
var
vPoint: TPoint;
begin
inherited;
vPoint := ScreenToClient(Point(Msg.XPos, Msg.YPos));
if PtInRect(Rect(0, 0, cOffset, cOffset),vPoint) then
Msg.Result := HTTOPLEFT
else if PtInRect(Rect(Width - cOffset, Height - cOffset, Width, Height), vPoint) then
Msg.Result := HTBOTTOMRIGHT
else if PtInRect(Rect(Width - cOffset, 0, Width, cOffset), vPoint) then
Msg.Result := HTTOPRIGHT
else if PtInRect(Rect(0, Height - cOffset, cOffset, Height), vPoint) then
Msg.Result := HTBOTTOMLEFT
else if PtInRect(Rect(cOffset, 0, Width - cOffset, cOffset), vPoint) then
Msg.Result := HTTOP
else if PtInRect(Rect(0, cOffset, cOffset, Height - cOffset), vPoint) then
Msg.Result := HTLEFT
else if PtInRect(Rect(Width - cOffset, cOffset, Width, Height - cOffset), vPoint) then
Msg.Result := HTRIGHT
else if PtInRect(Rect(cOffset, Height - cOffset, Width - cOffset, Height), vPoint) then
Msg.Result := HTBOTTOM;
end;

end.

送分题

相关推荐