在delphi里 ,當滑鼠移動到 label上時,字體下會出現下劃線,滑鼠移開,下劃線消失 。
uj5u.com熱心網友回復:
procedure TForm1.Label1MouseEnter(Sender: TObject);begin
Label1.Font.Style := [fsUnderline];
end;
procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
Label1.Font.Style := [];
end;
uj5u.com熱心網友回復:
謝謝,,delphi中,mainmenu 始終是在視窗的最上面,我想在視窗的最下方設定一排類似mainmenu 的按鈕,怎么才能實作?
uj5u.com熱心網友回復:
首先,mainmenu是選單,不是按鈕。
另外,可以底部添加button,anchors設定bottom。
轉載請註明出處,本文鏈接:https://www.uj5u.com/houduan/131877.html
標籤:VCL組件開發及應用
