关于鼠标在窗体上作图的疑问 |
答題得分者是:st33chen
|
zhouying82
高階會員 ![]() ![]() ![]() ![]() 發表:150 回覆:272 積分:189 註冊:2004-03-16 發送簡訊給我 |
我的在程序的主窗体添加一个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 ! 編輯記錄
taishyang 重新編輯於 2009-02-12 14:19:00, 註解 歸類成[問題]‧
|
st33chen
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:15 回覆:591 積分:1201 註冊:2005-09-30 發送簡訊給我 |
------
IS IT WHAT IT IS 我是 李慕白 請倒著唸. 又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦); 都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.
編輯記錄
st33chen 重新編輯於 2009-02-12 21:54:30, 註解 無‧
|
zhouying82
高階會員 ![]() ![]() ![]() ![]() 發表:150 回覆:272 積分:189 註冊:2004-03-16 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |