我的在程序的主窗体添加一个MEMO控件，使他可以相应客户的输入，如果是键盘，就启动MEMO,如果是鼠标，则启动canvans，但是又一个问题，就是每当我点击鼠标后，他总是要先画一条长的线，然后才可以按照我的要求画线，请问，这个是什么原因呢？我的代码如下

[code delphi]
var mouselbstate:boolean;
implementation
{$R *.dfm}
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
refresh;
memo1.Visible :=true;
memo1.SetFocus ;
end;
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button=mbleft then
begin
mouselbstate:=true;
memo1.Visible :=false;
canvas.MoveTo(x,y);
canvas.LineTo(x,y);
end;
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
memo1.Visible :=false;
if mouselbstate then
canvas.LineTo(x,y);
end;
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
memo1.Visible :=false;
if button=mbleft then
mouselbstate:=false;
end;
procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
memo1.Visible :=false;
refresh;
end;
procedure TForm1.Memo1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
memo1.Visible :=false;
refresh;
end;
end.

[/code]

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

編輯記錄

1. 您好
   我用 d6 試, 沒有問題, 點 mouse 不會先畫線.
   
   不過, 您可以試一下 :
   procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
2. Shift: TShiftState; X, Y: Integer);
3. begin
4. if button=mbleft then
5. begin
6. mouselbstate:=true;
7. memo1.Visible :=false;
8. canvas.MoveTo(x,y);
9. // canvas.LineTo(x,y); <---- 註掉這一列看看
10. end;
11. end;

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

編輯記錄

我又试了下，如果我画笔的颜色选择的是红色的话，就会出现上述问题，不知道是什么原因。

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !