Code File:
Unit unit1; interfaceuses windows, messages, extensions, variants, classes, graphics, controls, forms, dialogs, stdctrls; Type tform1 = Class (tform) memo1: tmemo; Procedure formcreate (Sender: tobject); Procedure formmousedown (Sender: tobject; button: tmousebutton; shift: tshiftstate; X, Y: integer); end; var form1: tform1; implementation {$ R *. DFM} procedure alert (Sender: tobject); begin memo1.align: = alleft; cursor: = ssvertical; memo1.clear; end; Procedure alert (Sender: tobject; button: tmousebutton; shift: tshiftstate; x, Y: integer); begin if getkeystate (vk_shift)
Form file:
Object form1: tform1 left = 0 Top = 0 caption = 'form1 'clientheight = 206 clientwidth = 339 color = clbtnface font. charset = default_charset font. color = clwindowtext font. height =-11 font. name = 'tahoma 'font. style = [] oldcreateorder = false oncreate = formcreate onmousedown = formmousedown pixelsperinch = 96 textheight = 13 object memo1: tmemo left = 80 top = 80 width = 185 Height = 89 lines. strings = ('memo1') taborder = 0 endend