有人看過或寫過  "線(Line)"  這個元件嗎    因為專案需要 我需要線的元件 給予起點 與 終點後 可以呈現在表單上    並能夠寫入事件(Event)...EX: 若使用者點選(Click)線時 線變成紅色    如下圖(PS: VB提供之Line元件)      多謝各位 發表人 - wallence777 於 2003/12/18 01:06:55 發表人 - wallence777 於 2003/12/18 01:07:46

wallence777你好 我用shape元件 設定 Shape1 ->Shape->stRectangle Shape1 ->Height=1 //長方形當成線,height=線寬 Shape1 ->Brush->Style=psSolid 使用DragOver事件 void __fastcall TForm1::Shape1DragOver(TObject *Sender, TObject *Source, int X, int Y, TDragState State, bool &Accept) { Shape1->Brush->Color=clRed; Shape1->Pen->Color=clRed; } run後用mouse右鍵click該線可改變顏色 我也在學習中

但是沒辦法作出斜線阿

引言: 但是沒辦法作出斜線阿

既然如此，那您何不自己開發個新元件呢？使這個新元件擁有「MoveTo」、[LineTo]的功能後，再配合lo所提的，應該就可以做出來了

那應該如何去寫呢 多謝

Sorry，看來可能沒辦法幫你了，因為我有試著寫，但的確有難度，真是抱歉 我後來有想到一個方法，不知道你合用嗎？就是直接在

沒關係 多謝你們了 發表人 - wallence777 於 2003/12/25 01:56:13

使用控件LMD TOOL.6.0 http://www.lmdinnovative.com/ 試看看 是否合用