|
ｿｽ@ｿｽｿｽｿｽｿｽｿｽﾝ選ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ StringGrid ｿｽﾌセｿｽｿｽ LowｿｽACol ｿｽｿｽmｿｽｿｽﾉゑｿｽ
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
mathA 2009/11/24(ｿｽｿｽ) 21:01:29
ｿｽ@SpeedButtonｿｽi10ｿｽﾂ用ｿｽﾓゑｿｽｿｽAｿｽeｿｽX0ｿｽ`9ｿｽｿｽｿｽｿｽ闢厄ｿｽﾄゑｿｽjｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽﾄ撰ｿｽｿｽlｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽﾝ選ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ StringGrid ｿｽﾌセｿｽｿｽｿｽﾉ難ｿｽｿｽﾍゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽIｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽZｿｽｿｽｿｽｿｽ LowｿｽACol ｿｽｿｽmｿｽｿｽﾉはどゑｿｽｿｽｿｽｿｽｿｽｿｽ轤｢ｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
procedure TForm1.sb0Click(Sender: TObject);
begin
if (Sender as TSpeedButton) = sb0 then FNumStr := FNumStr+'0'
else if (Sender as TSpeedButton) = sb1 then FNumStr := FNumStr+'1'
else if (Sender as TSpeedButton) = sb2 then FNumStr := FNumStr+'2'
else if (Sender as TSpeedButton) = sb3 then FNumStr := FNumStr+'3'
else if (Sender as TSpeedButton) = sb4 then FNumStr := FNumStr+'4'
else if (Sender as TSpeedButton) = sb5 then FNumStr := FNumStr+'5'
else if (Sender as TSpeedButton) = sb6 then FNumStr := FNumStr+'6'
else if (Sender as TSpeedButton) = sb7 then FNumStr := FNumStr+'7'
else if (Sender as TSpeedButton) = sb8 then FNumStr := FNumStr+'8'
else if (Sender as TSpeedButton) = sb9 then FNumStr := FNumStr+'9';
StringGrid.Cells[j,i] := FNumStr; //j,iｿｽｿｽmｿｽ閧ｽｿｽｿｽ
end;
risa 2009/11/24(ｿｽｿｽ) 21:39:14
ｿｽ]ｿｽvｿｽﾈゑｿｽｿｽｿｽｿｽbｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが、ｿｽeｿｽ{ｿｽ^ｿｽｿｽｿｽﾌ「tagｿｽvｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽ0ｿｽｿｽｿｽｿｽ9ｿｽﾜゑｿｽ
ｿｽﾌ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽUｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾎ、ｿｽｿｽｿｽﾌ抵ｿｽｿｽxｿｽﾅ擾ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
(ｿｽｿｽｿｽｿｽｿｽｿｽA10ｿｽﾂのボｿｽ^ｿｽｿｽｿｽﾉはイｿｽxｿｽｿｽｿｽgｿｽﾆゑｿｽｿｽﾄ奇ｿｽｿｽ闢厄ｿｽﾄてゑｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB)
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
FNumStr := IntToStr(TSpeedButton(Sender).Tag) + FNumStr;
StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row] := FNumStr;
end;
delphiｿｽｿｽDｿｽｿｽ 2009/11/24(ｿｽｿｽ) 23:48:16
ｿｽﾈ単ｿｽﾈ趣ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽﾈ会ｿｽｿｽﾅどゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽHｿｽH
ｿｽﾈ前,ｿｽXｿｽgｿｽｿｽｿｽｿｽｿｽWｿｽOｿｽｿｽｿｽbｿｽhｿｽｿｽgｿｽｿｽｿｽｿｽｿｽ¥ｿｽtｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽXｿｽgｿｽｿｽｿｽｿｽｿｽWｿｽOｿｽｿｽｿｽbｿｽhｿｽﾅ最擾ｿｽｿｽﾍ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽYｿｽﾝまゑｿｽｿｽｿｽｿｽOｿｽOｿｽG
ｿｽﾂ具ｿｽｿｽｿｽturbo Delphi2006ｿｽiｿｽｿｽｿｽｿｽｿｽﾅ）ｿｽﾅゑｿｽｿｽB
ｿｽXｿｽgｿｽｿｽｿｽｿｽｿｽWｿｽOｿｽｿｽｿｽbｿｽhｿｽｿｽSelectCellｿｽﾅ、ｿｽｿｽｿｽﾝのセｿｽｿｽｿｽﾌ位置ｿｽｿｽ謫ｾｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
var
Form1: TForm1;
row1,col1:integer;
implementation
{$R *.dfm}
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if sender = SpeedButton1 then
StringGrid1.Cells[col1,row1] := '1';
if sender = SpeedButton2 then
StringGrid1.Cells[col1,row1] := '2';
if sender = SpeedButton3 then
StringGrid1.Cells[col1,row1] := '3';
if sender = SpeedButton4 then
StringGrid1.Cells[col1,row1] := '4';
if sender = SpeedButton5 then
StringGrid1.Cells[col1,row1] := '5';
if sender = SpeedButton6 then
StringGrid1.Cells[col1,row1] := '6';
if sender = SpeedButton7 then
StringGrid1.Cells[col1,row1] := '7';
if sender = SpeedButton8 then
StringGrid1.Cells[col1,row1] := '8';
if sender = SpeedButton9 then
StringGrid1.Cells[col1,row1] := '9';
end;
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
begin
col1 := ACol; row1 := ARow;
KHE00221 2009/11/25(ｿｽｿｽ) 00:08:26
StringGrid1.Selection ｿｽｿｽｿｽｿｽ
mathA 2009/11/25(ｿｽｿｽ) 06:49:54
function CheckDecNum(const S: String):Boolean;
var
i: Integer;
begin
Result := True;
for i := 1 to Length(S) do
begin
if ( not (S[i] in ['0'..'9','-']) ) //ｿｽLｿｽ[ｿｽｿｽｿｽﾍで必ｿｽv
or ( (S[i] = '-') and (i > 1) ) then
begin
Result := False;
break
end;
end;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
i: Integer;
NumStr: string;
begin
i := TSpeedButton(Sender).Tag;
NumStr := StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row];
if i = 10 then
NumStr := '-'+NumStr
else
NumStr := NumStr + IntToStr(i);
if CheckDecNum(NumStr) then
StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row] := NumStr;
end;
ｿｽ@risa ｿｽｿｽｿｽｿｽﾌコｿｽ[ｿｽhｿｽｿｽQｿｽlｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽｿｽ SelectCell ｿｽｿｽgｿｽｿｽｿｽﾜでゑｿｽﾈゑｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽﾋ。ｿｽｿｽｿｽｿｽｿｽｿｽｿｽpｿｽIｿｽﾈゑｿｽﾌゑｿｽｿｽｿｽﾆなゑｿｽﾆ意外ｿｽﾆ難しｿｽｿｽｿｽB
ｿｽ@ｿｽｿｽｿｽﾆゑｿｽｿｽｿｽ '123' ｿｽﾆ難ｿｽｿｽﾍゑｿｽｿｽﾄ鯉ｿｽ '1203' ｿｽﾆゑｿｽｿｽｿｽﾉゑｿｽ StringGrid1.Cells[Col, Row] ｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽﾌカｿｽ[ｿｽ¥ｿｽｿｽｿｽﾊ置ｿｽｿｽmｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾈんかどゑｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽBｿｽﾜゑｿｽｿｽZｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽが選ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｩｿｽﾇゑｿｽｿｽｿｽｿｽｿｽmｿｽ閧ｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽB
> StringGrid1.Selection ｿｽｿｽｿｽｿｽ
ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽwｿｽｿｽｿｽvｿｽｿｽﾇむゑｿｽ
ｿｽuSelection ｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽﾍ，ｿｽｿｽｿｽﾝ選ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌ茨ｿｽﾌ具ｿｽｿｽEｿｽｿｽwｿｽ閧ｵｿｽﾜゑｿｽｿｽv
ｿｽﾆゑｿｽｿｽｿｽﾜゑｿｽｿｽﾌで包ｿｽｿｽｿｽｿｽ自体の位置ｿｽﾍわかｿｽｿｽﾈゑｿｽｿｽﾌではなゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
mathA 2009/11/25(ｿｽｿｽ) 07:43:30
> StringGrid1.Selection ｿｽｿｽｿｽｿｽ
ｿｽ@ｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽBｿｽﾅ擾ｿｽｿｽﾌ趣ｿｽｿｽｿｽﾌ難ｿｽｿｽｿｽｿｽﾉはなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽﾋ。ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌプｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽｿｽｿｽﾍゑｿｽｿｽﾌ厄ｿｽｿｽOｿｽｿｽｿｽ轤ｵ
ｿｽﾄゑｿｽｿｽｿｽﾆゑｿｽｿｽいｿｽｿｽﾈ擾ｿｽが難ｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽiｿｽﾎ）ｿｽB
tor 2009/11/25(ｿｽｿｽ) 10:33:15
> ｿｽｿｽｿｽﾆゑｿｽｿｽｿｽ '123' ｿｽﾆ難ｿｽｿｽﾍゑｿｽｿｽﾄ鯉ｿｽ '1203' ｿｽﾆゑｿｽｿｽｿｽﾉゑｿｽ StringGrid1.Cells[Col, Row] ｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽﾌカｿｽ[ｿｽ¥ｿｽｿｽｿｽﾊ置ｿｽｿｽmｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾈんかどゑｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽB
> ｿｽﾜゑｿｽｿｽZｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽが選ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｩｿｽﾇゑｿｽｿｽｿｽｿｽｿｽmｿｽ閧ｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽB
StringGridｿｽｿｽｿｽｿｽﾌエｿｽfｿｽBｿｽ^ｿｽｿｽInplaceEditorｿｽﾆゑｿｽｿｽｿｽｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽﾅ趣ｿｽｿｽoｿｽｿｽｿｽｿｽﾌゑｿｽ
ｿｽｿｽｿｽｿｽｿｽSelStartｿｽｿｽSelLengthｿｽｿｽgｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。
InplaceEditorｿｽｿｽprotectedｿｽﾈのでゑｿｽｿｽﾌままではアｿｽNｿｽZｿｽXｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽ
ｿｽgｿｽｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽｿｽTipsｿｽｿｽﾇゑｿｽｿｽｿｽｿｽﾅ鯉ｿｽｿｽｿｽｿｽﾈ…ｿｽcｿｽﾆ思ｿｽｿｽｿｽﾄ鯉ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ轤ｱｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽOｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽuStringGridｿｽﾅ選ｿｽｿｽﾊ置ｿｽﾉ包ｿｽｿｽｿｽｿｽｿｽ}ｿｽｿｽｿｽｿｽｿｽｿｽﾉは？ｿｽv
http://hpcgi1.nifty.com/MADIA/DelphiBBS/wwwlng.cgi?print+200509/05090090.txt
mathA 2009/11/25(ｿｽｿｽ) 16:37:34
ｿｽ@torｿｽｿｽｿｽありがｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽﾉゑｿｽｿｽﾄゑｿｽざｿｽざｿｽpｿｽｿｽｿｽｿｽｿｽﾄコｿｽｿｽｿｽ|ｿｽｿｽｿｽ驍ｱｿｽﾆなゑｿｽ protected ｿｽｿｽ
ｿｽﾉアｿｽNｿｽZｿｽXｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋゑｿｽｿｽIｿｽ@ｿｽｿｽｿｽﾟて知ｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾛむぽゑｿｽ 2009/11/26(ｿｽｿｽ) 13:58:09
ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｯｿｽｿｽ
TStringGrid=class(Grids.TStringGrid);
ｿｽｿｽｿｽﾌ宣言ｿｽﾉ代えｿｽﾄゑｿｽｿｽｿｽｿｽﾎ、ｿｽLｿｽｿｽｿｽXｿｽgｿｽｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽEｿｽEｿｽEｿｽB
