我是菜鸟，想做一个类似与画图版功能的程序，有很多问题请教高手：）(100分)

to:largewang
我的信箱gushui2002@163.com，能把源程序给我看看吗？

惨啦惨啦，捅了马蜂窝了。

我的代码是商业代码，要用￥购买的！

呵呵，那算了，不过还是谢谢，恭喜发财：）

新发现，delphi7比delphi6画图要好得多，
看她自己的例子memo/doc/griph/的例子两个一样运行发现
在7的环境中无闪烁，6中，靠闪个不停。
建议用7，我跟你写一样的东西呢，去年写了一个，差折线的移动了结果过了年
整机器。清掉了，我们还需要一个自定义元件的功能，还有地理信息的功能，
nnd，要不然早昨晚了，不过我们混日子呢呵呵呵用shape就够了

谁知道怎么把矩形画在panel上来实现矩形的拖动。请高手指点

这是一个Shape1在Panel1上拖动的例子。
//------------------------------------------------------------------------------
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;

type
TForm1 = class(TForm)
Panel1: TPanel;
Shape1: TShape;
procedure Shape1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormShow(Sender: TObject);
procedure Shape1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
var
IsDown : boolean;
implementation

{$R *.dfm}

procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
IsDown := True;
end;

procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if IsDown then
begin
Shape1.Top := Shape1.Top+y;
Shape1.Left := Shape1.Left+x;
end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
IsDown := False;
end;

procedure TForm1.Shape1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
IsDown := False;
end;

end.

谢谢楼上的，不过程序没有反映啊？怎么回事？

不会吧？
你有Msn吧？告诉我，传给你原文件。

信箱行吗？gushui2002@163.com

我对这个“大程序”失去信心了，没有头绪，看来我真的不适合编程序。：（

已经给你发过去了。
万事开头难嘛，不要气馁。
谁都是从菜鸟开始的。

编写程序固然需要智商。
但是首先需要信心、恒心的，在你没有尝试过的时候。
怎能轻言放弃？
喜欢编程，有兴趣，才有灵感、动力。
祝你好运。

干脆先去看一看书,就是讲解TCanv构件的
然后,再自己实现一些简单的功能,比如说:画线,点,矩形,圆,
再实现鼠标拖动,放大和缩小等功能,
再实现一些复杂的功能,

总之一句话.一步一步的来,
建议不要一开始就去看源码,
那样的话,会让你头昏眼花,
再彻底绝望的.

呵呵，谢谢大家。程序员这份职业有前途吗？我就要毕业了，现在在一家公司学写程序，发现
程序员太累了，没有自己的时间，钱还不多。我都不知道计算机系毕业干什么好了。！难道去
个事业单位喝茶看报纸？更无聊啊。
唉。前途渺茫！！

路在自己走，别人的不一定适合你。
好好把握。

我只是想听取“过来人”点建议，我想对我有好处。：）

只要自己喜欢，就好好做。
人生只此一回，我崇尚自由，不喜欢太看别人脸色做事。
更不愿进入国营单位为难自己。
所以就成了Coder。
有时感觉苦点，但是很开心、很逍遥。
如果老板对我不好，或怎样，离还是留是由自己做主的。

gushui118 在 2003-3-4 15:49:16 提供了如下回答, 请您查阅和评估:
--------------------------------------------------------------------------
---
呵呵，谢谢大家。程序员这份职业有前途吗？我就要毕业了，现在在一家公司学写程
序，发现
程序员太累了，没有自己的时间，钱还不多。我都不知道计算机系毕业干什么好了。
！难道去
个事业单位喝茶看报纸？更无聊啊。
唉。前途渺茫！！


你都要毕业了才开始学写程序啊，那你念书的时候都在干什么？

念书的时候在玩游戏，荒废了4年。后悔啊。！