請問 按鈕作出自已的 Hint 的訊息 謝謝 發表人 - WENBERG 於 2003/01/13 16:34:52 發表人 - WENBERG 於 2003/01/13 17:37:27

Set TButton.Hint.. e.g. Button1.Hint := 'hint'; Button1.ShowHint := True;

可調整顯示位置, 訊息底色, 字型大小及顏色, 試試看 repaint; Canvas.font.size:=5; Canvas.brush.color:=clBlue; Canvas.font.color:=$00ffffff; Canvas.TextOut(Button1.left,Button1.top-15,'OK....');

引言: 可調整顯示位置, 訊息底色, 字型大小及顏色

並可改變顯示內容 procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); BEGIN repaint; Canvas.font.size:=5; Canvas.brush.color:=clBlue; Canvas.font.color:=$00ffffff; Canvas.TextOut(Button1.left,Button1.top-15,'OK....'); END;