procedure TGikoForm.TabsSaveActionExecute(Sender: TObject);
begin
+
if not SaveTabURLs then begin
- ShowMessage('\95Û\91¶\82·\82é\83^\83u\82ª\82 \82è\82Ü\82¹\82ñ');
+ if TabsSaveAction.Tag = 0 then
+ ShowMessage('\95Û\91¶\82·\82é\83^\83u\82ª\82 \82è\82Ü\82¹\82ñ');
end;
end;
procedure TGikoForm.TabsOpenActionExecute(Sender: TObject);
begin
if not LoadTabURLs then begin
- ShowMessage('\95\\8e¦\82·\82é\83^\83u\82ª\82 \82è\82Ü\82¹\82ñ\81B');
+ if TabsOpenAction.Tag = 0 then
+ ShowMessage('\95\\8e¦\82·\82é\83^\83u\82ª\82 \82è\82Ü\82¹\82ñ\81B');
end;
end;
-{
- procedure TGikoForm.FileTabSaveClick(Sender: TObject);
-var
- SaveStringList: TStringList;
-begin
- SaveTabList := TStringList.Create;
- SaveTabList := GetTabURLs;
- if TabSaveDialog.Execute then begin
- SaveTabList.SaveToFile(TabSaveDialog.FileName);
- end;
-end;
-}
function TGikoForm.LoadTabURLs : Boolean;
var
if FAbort then
Exit;
if Item.FContent <> '' then begin
+ GikoForm.TabsSaveAction.Tag := 1;
+ GikoForm.TabsOpenAction.Tag := 1;
GikoForm.TabsSaveAction.Execute;
UpdateURL(Item.FContent);
GikoForm.ReloadBBS;
+ GikoForm.TabsSaveAction.Tag := 0;
+ GikoForm.TabsOpenAction.Tag := 0;
end else
MessageMemo.Lines.Add('\83_\83E\83\93\83\8d\81[\83h\82ª\8e¸\94s\82µ\82Ü\82µ\82½[' + IntToStr(Item.FResponseCode) + ']');
finally