обработчик MouseToCall

← →
john_mag © (2005-06-02 09:02) [0]

Доброе утро, всем! Кто сможет подсказать или показать... Я использую обработчик MouseToCall в StringGrid. Отправляются входящие данные 484 и 327. Говорится, что должны исходящие данные быть в виде номера столбца ACol и строки ARow, а она(процедура) выдаёт в индикаторе следующие результаты: 2000281672 и 1242664 соответственно - ? Спасибо всем за будущие советы.

← →
begin...end © (2005-06-02 09:06) [1]

Приведите полный код, а также значения длины и ширины StringGrid.

← →
begin...end © (2005-06-02 09:07) [2]

В смысле, ширины (Width) и высоты (Height).

← →
iskatel © (2005-06-02 09:14) [3]

> выдаёт в индикаторе

в каком индикаторе? похоже у тя ошибка при выводе в индикатор, проверь в дебаггере переменные сразу после ф-ции MouseToCell...

← →
iskatel © (2005-06-02 09:15) [4]

2begin...end

если не попадает, то выдает -1

← →
john_mag © (2005-06-02 09:17) [5]

procedure TForm5.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var P: TPoint;
x2,y2: Longint;
begin
P:= GetClientOrigin;
if Button = mbRight then
begin
MouseToCall(P.X+(X+6),P.Y+(Y+60),x2,y2);
PopupMenu1.Popup(P.X+(X+6),P.Y+(Y+60));
StatusBar1.Panels.Items[0].Text:= IntToStr(x2)+":"+IntToStr(y2);
end;
end;

StringGrid1.ColWidths[0]:= 60;
StringGrid1.ColWidths[1] >= 300;
StringGrid1.ColWidths[2]:= 50;
StringGrid1.ColWidths[3]:= 70;

← →
iskatel © (2005-06-02 09:23) [6]

1 MouseToCall ты не ошибся? я видел там только MouseToCllell
2 накой считать от формы, а потом еще и клиент ориджин добавлять? делай обработчик мыши не формы а грида

← →
iskatel © (2005-06-02 09:23) [7]

блин, т.е. MouseToCell

думаешь результаты изменятся? входящие же правильны, а вот исходящие... а MouseToCall - ;( MouseToCell - ;)

> john_mag © (02.06.05 09:17) [5]

procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var ACol, ARow: Integer; P: TPoint; begin with (Sender as TStringGrid) do begin MouseToCell(X, Y, ACol, ARow); P := ClientToScreen(Point(X, Y)) end; PopupMenu1.Popup(P.X, P.Y); StatusBar1.Panels[0].Text := Format("%d:%d", [ACol, ARow]) end

?

если P := ClientToScreen(Point(X,Y)); убрать, то что-то вроде работает, а иначе P := ClientToScreen(Point(X, - ")"expected but "," found.

обработчик MouseToCall Найти похожие ветки