Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.06.13;
Скачать: CL | DM;

Вниз

TStatusPanel   Найти похожие ветки 

 
Delph   (2004-05-28 11:22) [0]

Здравствуйте.
Как грамотно показывать хинты в зависимости от того на какую Panel TStatusPanel-и наведен курсор мыши?
Ну или как хотя-бы узнать координаты курсора мыши?
Заранее спасибо.


 
Семен Сорокин ©   (2004-05-28 11:39) [1]

Ну или как хотя-бы узнать координаты курсора мыши?
Mouse.CursorPos;

вот шмат кода из программы, посмотри може поможет :)

procedure TfmGraphs.stBarMouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Integer);
var
 _i    : integer;
 _rect1: TRect;
 _rect2: TRect;
begin
_rect1.Left := 0;
for _i := 0 to 1 do
 _rect1.Left := _rect1.Left + fmMain.stBar.Panels[_i].Width;
_rect2.Left := fmMain.stBar.Panels[0].Width;
_rect1.Right := _rect1.Left + fmMain.stBar.Panels[2].Width;
_rect2.Right := _rect2.Left + fmMain.stBar.Panels[1].Width;
_rect1.Top := 0;
_rect1.Bottom := fmMain.stBar.Height;
_rect2.Top := 0;
_rect2.Bottom := fmMain.stBar.Height;
if PtInRect(_rect1, Point(X, Y)) and ((FGraphMode <> gmNone) or FFinder.Worked) then begin
 fmMain.stBar.Hint := EmptyStr;
 if FGraphMode <> gmNone then
  fmMain.stBar.Hint := GRAPH_MODE_HINT[FGraphMode] + iif(FFinder.Worked, CRLF, EmptyStr);
 if FFinder.Worked then begin
  fmMain.stBar.Hint := fmMain.stBar.Hint + "&#211;&#241;&#235;&#238;&#226;&#232;&#255; &#239;&#238;&#232;&#241;&#234;&#224;:" + CRLF;
  for _i := 0 to FFinder.CountConditions-1 do
   fmMain.stBar.Hint := fmMain.stBar.Hint + "(" + FFinder.CondString[_i] + ")" +
                 iif(_i <> FFinder.CountConditions-1, iif(FFinder.All, " &#232; " + CRLF, " &#232;&#235;&#232; " + CRLF), EmptyStr);
 end;
 Application.ActivateHint(Mouse.CursorPos)
end
else if PtInRect(_rect2, Point(X, Y)) and Assigned(Current) then begin
 fmMain.stBar.Hint := Current.Name;
 Application.ActivateHint(Mouse.CursorPos)
end
else begin
 fmMain.stBar.Hint := EmptyStr;
 Application.HideHint
end
end;



Страницы: 1 вся ветка

Текущий архив: 2004.06.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.04 c
3-1085175771
DmitryMN
2004-05-22 01:42
2004.06.13
Проблема с добавлением StoredProc


8-1080891336
graf
2004-04-02 11:35
2004.06.13
Font


4-1083935348
TCrash
2004-05-07 17:09
2004.06.13
Загрузка CPU


14-1085157364
Arm79
2004-05-21 20:36
2004.06.13
Помогите разгадать ...ЦО


6-1082889204
kortun
2004-04-25 14:33
2004.06.13
Где можно взять документацию по TcpServer