« ☆行単位でテキストを取得する。 | トップページ | ☆WebBrowserでHTMLを編集する。 »

☆入力間違いを知らせる一つの方法

Yahoo!ウィジェットか何かで、ID、パスワードが違うとフォームが細かく左右に動く・・・まるで「いやいや」(関西人としては、「ちゃうちゃう」かな)してるようなものを見たことがあるので、Delphiで試してみました。

フォームにボタンを貼り付けて、試してみて下さい。
procedure TForm1.Button1Click(Sender: TObject);
const
  Wait = 50;
var
  I, J: Integer;
begin
  J := -30;
  for I := 0 to 3 do
  begin
    case I of
      0: Left := Left - 15;
      1..3: begin
              J := J * (-1);
              Left := Left + J;
            end;
    end;
    Sleep(Wait);
    Application.ProcessMessages;
  end;
  Left := Left-15;
end;

|

« ☆行単位でテキストを取得する。 | トップページ | ☆WebBrowserでHTMLを編集する。 »