如何在方框輸內入點坐標,然后“確認”在畫布上畫出點的位置
uj5u.com熱心網友回復:
是要這個嗎Form1.Canvas.TextOut(10,10,'a');
uj5u.com熱心網友回復:
Canvas.Pixels[X,Y] := clRed;uj5u.com熱心網友回復:
procedure TForm1.Button1Click(Sender: TObject);var x,y:real; //定義為實數
begin
x:=strtofloat(edit1.text);
y:=strtofloat(edit2.text);
Canvas.Pixels[x,y]:=clRed;
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
edit1.Text:=''; //初始為空
end;
procedure TForm1.Edit2Change(Sender: TObject);
begin
edit2.Text:=''; //初始為空
end;
end.
uj5u.com熱心網友回復:
試過啦,如上,但是通不過,,,,可能是引數不是 正整數? 也不知什么原因,,uj5u.com熱心網友回復:
坐標點只能為整數,浮點的話要取整uj5u.com熱心網友回復:
我想請教大家,怎么把資料庫表存好直線,橢圓等的坐標。然后再畫布image上畫出來根據坐標,謝謝uj5u.com熱心網友回復:
難點在哪里?就是回圈一步步來。
uj5u.com熱心網友回復:
將資料庫表資料讀入DataSet;通過DataSet回圈,讀取的坐標,再畫。
uj5u.com熱心網友回復:
我就頂這個
轉載請註明出處,本文鏈接:https://www.uj5u.com/houduan/95950.html
