Delphi dicas

Escrevendo com o clique do mouse...

//Como escrever como mouse ? Fácil:



procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);



begin



        Canvas.TextOut(X, Y, 'Cliquei aqui com o mouse!');



end;



{Usando o Canvas, juntamente com a posição do mouse, pode-se escrever, ou fazer linhas, ou outros desenhos. Vç pode usar isto para verificar se o usuário clicou fora de uma região especifica por exemplo e avisa-lo.}