procedure TMainWnd.TaskTrayWndProc(var Msg: TMessage); begin try Case Msg.LParam of WM_LBUTTONUP: begin DeleteTaskBarIcon; ShowWindow(Application.Handle,SW_SHOW); Show; if Assigned(WriteForm) then WriteForm.MainWndOnShow; SetFocus; end; WM_RBUTTONUP: begin (* ここに書くといいです *) //DeleteTaskBarIcon; //Close; end; end;
>>659 procedure TMainWnd.KeywordExtraction(Sender: TObject; UseSelection: Boolean); var rc: integer; target:string; viewItem: TViewItem; BaseViewItem: TBaseViewItem; //追加 begin viewItem := GetActiveView; if (viewItem=nil) or(viewItem.thread=nil) then Exit; {追加} if UseSelection then begin if (PopupTextMenu.PopupComponent is THogeTextView) then BaseViewItem := GetViewOf(PopupTextMenu.PopupComponent) else BaseViewItem := viewItem end else BaseViewItem := viewItem; {/追加} if GrepDlg = nil then GrepDlg := TGrepDlg.Create(self); GrepDlg.Caption := 'レス抽出';
//viewItem := GetActiveView; //↓ if UseSelection then begin if (PopupTextMenu.PopupComponent is THogeTextView) then viewItem := GetViewOf(PopupTextMenu.PopupComponent) else viewItem := GetActiveView; end else viewItem := GetActiveView;
finalization // Dont Free. If shutdown is from another Init section, it can cause GPF when stack // tries to access it. App will kill it off anyways, so just let it leak // FreeAndNil(GStackCriticalSection);