恳切求助

Question

怎样用delphi画铁路线

Answer 1

用PhotoShop画成图，然后用TImage把图载入Delphi的程序，不行吗？这样最简单了。如果想实时画，我给你写了一个例子。不过我这个例子是在Form上用鼠标画，你可以改为画在Image上然后可以保存成图片。想怎么画就怎么画！但是不能修改啊！因为我没写....  ^_^
var
  CanDraw : boolean;
  OldX,OldY : integer;procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  CanDraw := Button=mbLeft;
  if (OldX=0) and (OldY=0) then begin
    OldX := X;
    OldY := Y;
  end;
end;procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  CanDraw := not (Button=mbLeft);
end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if CanDraw then begin
    Self.Canvas.MoveTo(OldX, OldY);
    Self.Canvas.LineTo(X, Y);
  end;
  OldX := X;
  OldY := Y;
end;