1、日期可以直接相减;
2、4、建议你去看看\Demos\Ado下的东东.
3、?
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: ShiftState);
begin
if Key=$0d then
ShowMessage('Hi');
end;
2、4、建议你去看看\Demos\Ado下的东东.
3、?
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: ShiftState);
begin
if Key=$0d then
ShowMessage('Hi');
end;
2.三个事件都可以:onkeydown,OnKeyPress,OnKeyUp,只是动作的先后而已.
onkeydown,OnKeyUp(按下\抬起时)
------------------
if key=VK_ENTER then (key=13也可以)
....
------------------
OnKeyPress
------------------
if key=#13 then
....