摘要:
procedure TForm3.FormCreate(Sender: TObject); begin Self.Paint; end; function ByteToHex(Src: Byte): String; begin SetLength(Result, 2); asm MOV EDI, [Result] MOV EDI, [ED... 阅读全文
摘要:
procedure TForm1.FormCreate(Sender: TObject); var i:integer; begin for i:=0 to ComponentCount-1 do if Components[i] is TEdit then (Components[i] as TEdit).OnKeyPress:=EditKeyPress; end; ... 阅读全文