输入框如何随窗口的最大化而自动调整? 如Edit,Memo,现在的程序,按了窗口最大化了,但是Form里的Edit和Memo还是和设计期一样大,如何解决? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Edit可用Anchors属性设位置Memo的Align属性设alClient 可以在Form的Paint事件中加入代码,修改Edit,Demo的Size(当然是参考Form缩放比例)。 挡截Windows的WM_SIZE消息.参考如下:form1中定义挡截WM_SIZE消息过程procedure ClientChangeSize(var msg: TMessage): message WM_SIZE;procedure TForm1.ClientChangeSize(var msg: TMessage);var ClientRect: TRECT; // 定义客户区 的大小/坐标,结构型变量begin ClientRect := GetClientRect; //取得客户区大小 Edit1.Left := ClientRect.Left; Edit1.Width := ;end;另:GetClientRect, TRECT在Delphi中另有定义,能不能实现这个功能没试过.在Windows C SDK中通过. delphi6.0的Active问题 救急 ADO连接ACCESS数据库,INSERT插入数据出错,高手帮我看看那里出错啊!!! DBGridEH标题中嵌入其它控件! 在delphi中怎么样使Timage控件显示gif格式的图片? 高手请进 Fasterreport pageheader 上面的取不是本页的值 请教:在数据网格中编辑数据后移动到其他记录,如何给出是否保存数据的提示?具体该怎么控制?谢谢! Delphi中如何调用VB编的ActiveX控件? 解释下这三行代码的含义; dbgrid中各字段显示问题 请提供API帮助 关于登录的问题
Memo的Align属性设alClient
参考如下:
form1中定义挡截WM_SIZE消息过程
procedure ClientChangeSize(var msg: TMessage): message WM_SIZE;
procedure TForm1.ClientChangeSize(var msg: TMessage);
var
ClientRect: TRECT; // 定义客户区 的大小/坐标,结构型变量
begin
ClientRect := GetClientRect; //取得客户区大小
Edit1.Left := ClientRect.Left;
Edit1.Width := ;
end;另:GetClientRect, TRECT在Delphi中另有定义,能不能实现这个功能没试过.
在Windows C SDK中通过.