procedure TFormHighQuery.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_RETURN then
begin
if DBGrid1.SelectedField=Query1ID then
begin
with Form1.Create(nil) do
try
Memo1.Text:=Query1Introduce.AsString;
Memo2.Text:=Query1Details.AsString;
Finally
Free;
end;
end;
end;
end;
小弟在运行找个程序后,选中DBGrid的ID按下回车后总提示acomponent named GroupBox1 already exists(在Form1中有组建GroupBox1)老是调不出来
Shift: TShiftState);
begin
if Key=VK_RETURN then
begin
if DBGrid1.SelectedField=Query1ID then
begin
with Form1.Create(nil) do
try
Memo1.Text:=Query1Introduce.AsString;
Memo2.Text:=Query1Details.AsString;
Finally
Free;
end;
end;
end;
end;
小弟在运行找个程序后,选中DBGrid的ID按下回车后总提示acomponent named GroupBox1 already exists(在Form1中有组建GroupBox1)老是调不出来
begin
with TForm1.Create(nil) do
try
Memo1.Text:=Query1Introduce.AsString;
Memo2.Text:=Query1Details.AsString;
Finally
Free;
end;
end;