ギコナビをどんどん改良しよう

3 名前：名無しさん 投稿日：2004/04/16(金) 18:13 ID:ZyfeegY6

editor.pas

procedure TEditorForm.EditorPageChange(Sender: TObject);
var
URL: string;
RefURL: string;
　　　　　　　RefeURL: string;
begin
if EditorPage.ActivePage = PreviewTab then begin
Preview;
end else begin
Browser.Navigate('about:blank');
end;

if FThreadItem = nil then begin
URL := FBoard.GetSendURL;
RefURL := GikoSys.UrlToServer(FBoard.URL)
+ GikoSys.UrlToID(FBoard.URL)
+ '/';
RefeURL := RefURL
+ 'SETTING.TXT';
end else begin
URL := FThreadItem.GetSendURL;
RefURL := GikoSys.UrlToServer(FThreadItem.ParentBoard.URL)
+ FThreadItem.ParentBoard.BBSID
+ '/';
RefeURL := RefURL
+ 'SETTING.TXT';
end;


if EditorPage.ActivePage = SETTINGTab then begin
Browser1.Navigate(RefeURL);
end else begin
Browser1.Navigate('about:blank');
end;

if EditorPage.ActivePage = BoardtopTab then begin
Browser2.Navigate(RefURL);
end else begin
Browser2.Navigate('about:blank');
end;
end;

tabが効かなかったのは内緒だｗ