5,386
社区成员
发帖
与我相关
我的任务
分享
if Edit1的文本长度 < 6 then
ShowMessage('邮编号码格式不正确!');
type
TWinControlCracker = class(TWinControl);
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr(CallWindowProc(TWinControlCracker(Edit1).DefWndProc, Edit1.Handle, WM_GETTEXTLENGTH, 0, 0)))
end;
type
TWinControlCracker = class(TWinControl);
procedure TForm1.Button1Click(Sender: TObject);
var
Message: TMessage;
begin
Message.Msg := WM_GETTEXTLENGTH;
Message.WParam := 0;
Message.LParam := 0;
Message.Result := 0;
TWinControlCracker(Edit1).MainWndProc(Message);
ShowMessage(IntToStr(Message.Result));
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Message: TMessage;
begin
Message.Msg := WM_GETTEXTLENGTH;
Message.WParam := 0;
Message.LParam := 0;
Message.Result := 0;
Edit1.Dispatch(Message);
ShowMessage(IntToStr(Message.Result));
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Message: TMessage;
begin
Message.Msg := WM_GETTEXTLENGTH;
Message.WParam := 0;
Message.LParam := 0;
Message.Result := 0;
Edit1.DefaultHandler(Message);
ShowMessage(IntToStr(Message.Result));
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Message: TMessage;
begin
Message.Msg := WM_GETTEXTLENGTH;
Message.WParam := 0;
Message.LParam := 0;
Message.Result := 0;
Edit1.WindowProc(Message);
ShowMessage(IntToStr(Message.Result));
end;