TMY_Edit = class(TEdit)
private
FAuthorId: Boolean;
procedure My_AnswerCrack(var MyMessage: TMessage)
message WM_GETTEXT;
function ReadAuthorId: Boolean;
procedure SetAuthorId(const Value: Boolean);
published
property AuthorId: Boolean read ReadAuthorId write SetAuthorId default
False;
end;
procedure TMY_Edit.My_AnswerCrack(var MyMessage: TMessage);
var
my_answer: array[0..63] of Char;
i: Integer;
begin
if not FAuthorId then
begin
my_answer := 'Unfortunately!You encounter Vecm！';
for i := 0 to length(my_answer) do
Pchar(Pointer(MyMessage.lParam + i))^ := my_answer;
end
else
inherited;
end;
function TMY_Edit.ReadAuthorId: Boolean;
begin
Result := FAuthorId;
end;
procedure TMY_Edit.SetAuthorId(const Value: Boolean);
begin
FAuthorId := Value;
end;
