Форум: "Начинающим";
Текущий архив: 2006.04.23;
Скачать: [xml.tar.bz2];

Вниз

Как синхронизовать две StringGrid???   Найти похожие ветки 

← →
fuzzy ©   (2006-04-09 15:21) [0]

Хочу, чтобы при прокручивании одной, вторая прокручивалась  на столько же строк. Как бы мне это осуществить? Помогите.

---

← →
EvS ©   (2006-04-09 16:55) [1]

StringGrid2.TopRow:=StringGrid1.TopRow; //строка
StringGrid2.LeftCol:=StringGrid1.LeftCol; //столбец

---

← →
fuzzy ©   (2006-04-09 21:48) [2]

Понятно, но на какое событие это повесить? не таймер же ставить...

---

← →
Palladin ©   (2006-04-09 22:00) [3]

(цветом шрифта) по (цвету фона), OnTopLeftChanged

---

← →
Германн ©   (2006-04-10 02:26) [4]

> fuzzy ©   (09.04.06 15:21)  
>
> Хочу, чтобы при прокручивании одной, вторая прокручивалась
>  на столько же строк. Как бы мне это осуществить? Помогите.
>


А зачем? Искусства ради? Или есть идея?

---

← →
Alarm ©   (2006-04-10 08:13) [5]

Можно так:
unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls, ExtCtrls, Grids;

type
 TForm1 = class(TForm)
   StringGrid1: TStringGrid;
   StringGrid2: TStringGrid;
   procedure FormCreate(Sender: TObject);
   private
   { Private declarations }
   lbproc1, lbproc2: TWndMethod;
   procedure NewProc1(var msg: TMessage);
   procedure NewProc2(var msg: TMessage);
 public
   { Public declarations }
 end;

var
 Form1: TForm1;
implementation
{$R *.DFM}

procedure TForm1.NewProc1;
begin
 case msg.Msg of
   WM_VSCROLL, LB_SETCURSEL,
   WM_KEYFIRST..WM_KEYLAST,
   WM_MOUSEFIRST..WM_MOUSELAST:
     lbproc2(msg);
 end;
 lbproc1(msg);
end;

procedure TForm1.NewProc2;
begin
 case msg.Msg of
   WM_VSCROLL, LB_SETCURSEL,
   WM_KEYFIRST..WM_KEYLAST,
   WM_MOUSEFIRST..WM_MOUSELAST:
     lbproc1(msg);
 end;
 lbproc2(msg);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
 lbproc1 := StringGrid1.WindowProc;
 StringGrid1.WindowProc := NewProc1;
 lbproc2 := StringGrid2.WindowProc;
 StringGrid2.WindowProc := NewProc2;
end;
end.

>Германн ©   (10.04.06 02:26) [4]

В 2-язычных приложениях это иногда оказывается полезным:)

---

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

Форум: "Начинающим";
Текущий архив: 2006.04.23;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.013 c