我想要把Edit元件移到stringgrid元件上面,但我試了很久始終無法移到設定的cell位置,希望各位大大能幫忙解惑

[code cpp]
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
int ARow, TRect &Rect, TGridDrawState State)
{
TPoint OrgPoint,TempPoint,NewPoint;
if (ARow == 2 && ACol == 1)
{
OrgPoint.x = Rect.Left;
OrgPoint.y = Rect.Top;

//轉換座標.
TempPoint =StringGrid1->ClientToScreen(OrgPoint);
NewPoint =ScreenToClient(TempPoint);
//SetBounds(int ALeft, int ATop, int AWidth, int AHeight);
Edit1->SetBounds( NewPoint.x StringGrid1->GridLineWidth*2 ,
NewPoint.y StringGrid1->GridLineWidth*2 ,
Rect.Right - Rect.Left ,
Rect.Bottom - Rect.Top
);
}
[/code]

------
lee

除了DrawCell事件外，還有SelectCell事件

這邊給個範例，雖然是Delphi的不過應該也可以輕鬆轉才是


[code delphi]
procedure TfrmMain.StringGrid1SelectCell(Sender: TObject; Col, Row: Integer;
var CanSelect: Boolean);
var R: TRect;
begin
if ((Col = 1) and (Row <> 0)) then
begin
{Size and position the combo box to fit the cell}
R := StringGrid1.CellRect(Col, Row);
R.Left := R.Left StringGrid1.Left;
R.Right := R.Right StringGrid1.Left;
R.Top := R.Top StringGrid1.Top;
R.Bottom := R.Bottom StringGrid1.Top;

{Show the combobox}
with cbInplaceComboBox do
begin
Left := R.Left 1;
Top := R.Top 1;
Width := (R.Right 1) - R.Left;
Height := (R.Bottom 1) - R.Top;

ItemIndex := Items.IndexOf(StringGrid1.Cells[Col, Row]);
Visible := True;
SetFocus;
end;
end;
CanSelect := True;
end;

procedure TfrmMain.StringGrid1DrawCell(Sender: TObject; Col, Row: Integer;
Rect: TRect; State: TGridDrawState);
const
AlignFlags: array [TAlignment] of Integer =
(DT_LEFT or DT_VCENTER or DT_WORDBREAK or DT_EXPANDTABS or DT_NOPREFIX,
DT_RIGHT or DT_VCENTER or DT_WORDBREAK or DT_EXPANDTABS or DT_NOPREFIX,
DT_CENTER or DT_VCENTER or DT_WORDBREAK or DT_EXPANDTABS or DT_NOPREFIX);
var s: string;
begin
inherited;

with Rect do
begin
Left := Left 2;
Top := Top 2;
Right := Right - 5
end;

s := StringGrid1.Cells[Col, Row];

if (Row = 0) and (Col < StringGrid1.ColCount) then
begin
StringGrid1.Canvas.Font.Style := StringGrid1.Canvas.Font.Style [fsBold];
StringGrid1.Canvas.Brush.Color := StringGrid1.FixedColor;
StringGrid1.Canvas.FillRect(Rect);

DrawText(StringGrid1.Canvas.Handle,
PChar(s), Length(s),
Rect, AlignFlags[taCenter]);
end
else
if (Col = 0) and (Row > 0) and (Row < StringGrid1.RowCount) then
begin
StringGrid1.Canvas.FillRect(Rect);
DrawText(StringGrid1.Canvas.Handle,
PChar(s), Length(s),
Rect, AlignFlags[taRightJustify]);
end;
end;
[/code]



===================引 用 small7011 文 章===================
我想要把Edit元件移到stringgrid元件上面,但我試了很久始終無法移到設定的cell位置,希望各位大大能幫忙解惑

[code cpp]
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
int ARow, TRect &Rect, TGridDrawState State)
{
TPoint OrgPoint,TempPoint,NewPoint;
if (ARow == 2 && ACol == 1)
{
OrgPoint.x = Rect.Left;
OrgPoint.y = Rect.Top;

//轉換座標.
TempPoint =StringGrid1->ClientToScreen(OrgPoint);
NewPoint =ScreenToClient(TempPoint);
//SetBounds(int ALeft, int ATop, int AWidth, int AHeight);
Edit1->SetBounds( NewPoint.x StringGrid1->GridLineWidth*2 ,
NewPoint.y StringGrid1->GridLineWidth*2 ,
Rect.Right - Rect.Left ,
Rect.Bottom - Rect.Top
);
}
[/code]

[code delphi]
procedure TfrmMain.FormCreate(Sender: TObject);
begin
Edit1.Parent := StringGrid1;
Edit1.BoundsRect := StringGrid1.CellRect(1,1);
end;
[/code]

jow大你實在是太厲害了,完全不需要DrawCell事件就可以完成位置取代的動作,謝謝你指導.

[code cpp]
void __fastcall TForm2::FormCreate(TObject *Sender)
{
Edit1->Parent = StringGrid1;
Edit1->BoundsRect = StringGrid1->CellRect(1,1);
}
[/code]

===================引 用 jow 文 章===================

[code delphi]
procedure TfrmMain.FormCreate(Sender: TObject);
begin
Edit1.Parent := StringGrid1;
Edit1.BoundsRect := StringGrid1.CellRect(1,1);
end;
[/code]

------
lee