Есть программа. Она написана очень быстро, только для примера, и поэтому многие вещи в ней реализованы очень нерационально, но вообщем смысл понять можно.

Код

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, Grids, StdCtrls, ComCtrls; type  TForm1 = class(TForm)    procedure FormCreate(Sender: TObject);    procedure FormDestroy(Sender: TObject);  private    { Private declarations }  public    { Public declarations }    procedure SGClick(Sender:Tobject);  end; var  Form1: TForm1;  SG:TStringGrid;  UD:TUpDown;  E:TEdit; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin SG                  :=TStringGrid.Create(Self); SG.Parent           :=Self; SG.Top              :=5; SG.Left             :=5; SG.Width            :=300; SG.Height           :=150; SG.RowCount         :=7; SG.ColCount         :=5; SG.DefaultRowHeight :=20; SG.OnClick          :=SGClick; E         :=TEdit.Create(SG); E.Parent  :=SG; E.Visible :=false; UD          :=TUpDown.Create(SG); UD.Parent   :=SG; UD.Associate:=E; UD.Visible  :=false; end; procedure TForm1.FormDestroy(Sender: TObject); begin E.Destroy; UD.Destroy; SG.Destroy; end; procedure TForm1.SGClick(Sender: Tobject); Var Rect:TRect; begin Rect:=SG.CellRect(Sg.Col,SG.Row); E.Left  :=Rect.Left; E.Top   :=Rect.Top; E.Width :=Rect.Right-Rect.Left-(Rect.Bottom-Rect.Top)-1; E.Height:=Rect.Bottom-Rect.Top; UD.Left  :=Rect.Left+E.Width+1; UD.Top   :=Rect.Top; UD.Width :=Rect.Right-Rect.Left-E.Width; UD.Height:=Rect.Bottom-Rect.Top; E.Visible  :=true; UD.Visible :=true; end; end.

Проблема состоит в том, что если мы например щелкнем по самому нижнему элементу и далее щелкнем по UpDown, то мы увидем, что StringGrid непонятно почему прокрутился вверх.
Как этого исбежать, как не дать ему прокрутится вверх.
Вчера целый день бился! Помогите, пожайлуста! И если можно, объясните почему происходит прокрутка; с другими компонентами такое не наблюдается?

Код

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, Grids, Spin; type  TForm1 = class(TForm)    procedure FormCreate(Sender: TObject);    procedure FormDestroy(Sender: TObject);  private    { Private declarations }    SG:TStringGrid;    SE:TSpinEdit;    procedure SGClick(Sender:Tobject);  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin SG                  :=TStringGrid.Create(Self); SG.Parent           :=Self; SG.Top              :=5; SG.Left             :=5; SG.Width            :=300; SG.Height           :=150; SG.RowCount         :=7; SG.ColCount         :=5; SG.DefaultRowHeight :=20; SG.OnClick          :=SGClick; SE:= TSpinEdit.Create(Self); SE.Parent:=Self; SE.Visible:= False; end; procedure TForm1.SGClick(Sender: Tobject); Var R:TRect; begin  R:=SG.CellRect(Sg.Col,SG.Row);  R.Left := R.Left + SG.Left;  R.Right := R.Right + SG.Left;  R.Top := R.Top + SG.Top;  R.Bottom := R.Bottom + SG.Top;  SE.Left := R.Left + 1;  SE.Top := R.Top + 1;  SE.Width := (R.Right + 1) - R.Left;  SE.Height := (R.Bottom + 1) - R.Top;  SE.Visible:= True; end; procedure TForm1.FormDestroy(Sender: TObject); begin  SE.Destroy;  SG.Destroy; end; end.

Почему наблюдался эффект скажу честно не знаю.

Спасибо!

В продолжении темы..
Как мне сделать так, чтобы кнопка была сверху StringGrida.
Parent:=SG1; конечно помогает, но как реализовать с Parent:=self or Parent:=Form1;
Вообще для меня это не пренципиально, но все же мне интерестно узнать!

Код

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, Grids, StdCtrls, ComCtrls, Buttons; type  TForm1 = class(TForm)    procedure FormCreate(Sender: TObject);    procedure FormDestroy(Sender: TObject);  private    { Private declarations }  public    { Public declarations }    procedure SGClick(Sender:Tobject);  end; var  Form1: TForm1;  SG1:TStringGrid;  UD:TUpDown;  E:TEdit;  SB:TSpeedButton; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin SG1                  :=TStringGrid.Create(Self); SG1.Parent           :=Self; SG1.Top              :=5; SG1.Left             :=5; SG1.Width            :=300; SG1.Height           :=150; SG1.RowCount         :=7; SG1.ColCount         :=5; SG1.DefaultRowHeight :=20; SG1.OnClick          :=SGClick; SB          :=TSpeedButton.Create(self); SB.Parent   :=self; SB.Caption  :='...'; SB.Visible  :=false; end; procedure TForm1.FormDestroy(Sender: TObject); begin SB.Destroy; SG1.Destroy; end; procedure TForm1.SGClick(Sender: Tobject); Var Rect:TRect; begin Rect:=SG1.CellRect(SG1.Col,SG1.Row); SB.Left  :=SG1.Left+Rect.Left+1; SB.Top   :=SG1.Top+Rect.Top; SB.Width :=Rect.Bottom-Rect.Top; SB.Height:=Rect.Bottom-Rect.Top; SB.Visible :=true; end; end.

[s]