Форум программистов [Powered by Invision Power Board]

Код


...
var
     MovingCell:TImage;
...
  MovingCell := TImage.Create(nil);
...
 with MovingCell do
    begin
        Parent := grdTimeTable;  // Картинку хочу разместить посередине TStringGrid
        Width  := grdTimeTable.ColWidths[ACol];         // ------- Размером с ячейку
        Height := grdTimeTable.RowHeights[ARow];    //----------------------------------
        Top := grdTimeTable.Top+(grdTimeTable.Height div 2);  // Координаты местоположения картинки
        Left := grdTimeTable.Left+(grdTimeTable.Width div 2);  // -----------------------------------------------------
      //Устанавливаем курсор на середину
        SetCurCenter(MovingCell);
      //Рисуем
        Canvas.Brush.Color := clBlack;
        Canvas.FillRect(ClientRect);
    end;

Код


procedure SetCurCenter(Control:TImage);
var point:TPoint;// Для установки координат мыши
begin
  with Control do
  begin
    point.X:=Width div 2;
    point.Y:=Height div 2;
    point := Control.ClientToScreen(point);
  end;
  SetCursorPos(point.x, point.y);
end;

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, Grids, ExtCtrls;

type
  TForm1 = class(TForm)
    grdTimeTable: TStringGrid;
    SpeedButton1: TSpeedButton;
    Image1: TImage;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SetCurCenter(Control:TImage);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.SetCurCenter(Control:TImage);
var point:TPoint;// Äëÿ óñòàíîâêè êîîðäèíàò ìûøè
begin
  with Control do
  begin
    point.X:=Width div 2;
    point.Y:=Height div 2;
    point := Control.ClientToScreen(point);
  end;
  SetCursorPos(point.x, point.y);
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
var MovingCell:TImage;
begin
  MovingCell := TImage.Create(nil);
 with MovingCell do
    begin
        Parent := grdTimeTable;  // Êàðòèíêó õî÷ó ðàçìåñòèòü ïîñåðåäèíå TStringGrid
        Width  := grdTimeTable.ColWidths[5];         // ------- Ðàçìåðîì ñ ÿ÷åéêó
        Height := grdTimeTable.RowHeights[5];    //----------------------------------
        Top := grdTimeTable.Top+(grdTimeTable.Height div 2);  // Êîîðäèíàòû ìåñòîïîëîæåíèÿ êàðòèíêè
        Left := grdTimeTable.Left+(grdTimeTable.Width div 2);  // -----------------------------------------------------
      //Óñòàíàâëèâàåì êóðñîð íà ñåðåäèíó
        SetCurCenter(MovingCell);
      //Ðèñóåì
        Canvas.Brush.Color := clBlack;
        Canvas.FillRect(ClientRect);
    end;
end;

end.

Код


private
procedure SetCurCenter(Control:TImage);
...
procedure Tform1.SetCurCenter(Control:TImage);
var point:TPoint;// Для установки координат мыши
begin
  with Control do
  begin
    point.X:=Width div 2;
    point.Y:=Height div 2;
    point := Control.ClientToScreen(point);
  end;
  SetCursorPos(point.x, point.y);
end;

Цитата

у меня тоже пашет просто
сделай его в приват