レス数が 1000 を超えています。残念ながらこのスレッドには書き込めません。

ギコナビ開発スレ

882 名前：Delphi 6日目 投稿日：2004/01/04(日) 00:54 ID:/7Lxz4lc

ログインし忘れて巡回しようとしてエラーになることが
多いのですがこんな感じ↓になりませんか

===================================================================
RCS file: /cvsroot/gikonavi/gikonavi/Round.pas,v
retrieving revision 1.7
diff -r1.7 Round.pas
72a73,84
>
> if not Giko.GikoForm.LoginAction.Checked then begin
> if GikoSys.Setting.UserID <> '' then begin
> msg := 'ログインしないと巡回は出来ません' + #13#10
> + '今ログインしますか';
> if MsgBox(Handle, msg, '確認', MB_YESNO or MB_ICONQUESTION or MB_DEFBUTTON2) <> IDYES then begin
> Exit;
> end;
> Giko.GikoForm.LoginAction.Execute;
> end;
> end;
>