ヒント表示について (ID:15275)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

こんなカンジですな。

一部抜粋(実装部のみ)

constructor THogeForm.OnCreate(aOwner: TComponent);
begin
  HintWindow := THintWindow.Create(Self);
end;

destructor THogeForm.OnDestroy;
begin
  HintWindow.Free;
end;

//これは、フォームが隠れたりしたときに、ヒントの表示を切り換えている
procedure THogeForm.WndProc(var Message: TMessage);
begin
  with Message do begin
    if Msg = WM_ACTIVATE then begin
      if WParam = WA_INACTIVE then begin
        if HintWindow.Visible then begin
	 HintWindow.ReleaseHandle;
	 HintWindow.Tag := 1;
        end;
      end
      else begin
	if HintWindow.Tag = 1 then begin
	  ShowHintWindow(StringGrid1.Col, StringGrid1.Row);
	end;
      end;
    end;
  end;
end;

//ヒント表示のメイン
procedure THogeForm.ShowHintWindow(aCol, aRow: Integer);
var
  contents: String;
  clRect: TRect;
begin
  if not Visible then Exit;
  {ヒントを隠す}
  HintWindow.ReleaseHandle;
  if aRow > 0 then begin
    {セルの表示矩形範囲を得る}
    {これは選択されているセルの範囲なので、
     上に表示したければ、clRectの範囲を上に移動する}
    clRect := StringGrid1.CellRect(aCol, aRow);
    {(例)ヒントで表示するテキスト}
    contents := StringGrid1.Cells(aCol, aRow);
    {ヒントを表示}
    HintWindow.ActivateHint(clRect, contents);
  end;
end;

あとは、必要なタイミングでShowHintWindowを呼び出しておけばいいかと。

←解決時は質問者本人がここをチェックしてください。

戻る