delphi vcl 的 TPageControl 控件,实现对页签的拖动

delphi vcl 的 TPageControl 控件,实现对页签的拖动

我们在TPageControl 控件里 放了几个页签,但很多时候我们的需求是把某个页签放前面 和 另一个旁边的方便切换做对比。这个可以有更好的体验,类似Delphi IDE编辑器一样切换页签。

分别 在 DragDrop 、DragOver 、MouseDown 事件写上对应代码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

【原创】用 Delphi Fmx 绘制非常精确的 时分秒针

绘制时钟可以非常直观得看到时间,方便的客户体验,但是网上的绘制都是 1秒 1秒绘制,我这里把时分秒角度非常精确绘制出来。看到起让人更佳舒畅。

下面开始教学使用方法:

界面上放上  Circle 作为时针盘面。

然后放入 TLine    作为 时 分 秒  命名为     LSec;    LMin;    LHou;

最后放一个 Timer ,间隔触发修改为 6 ,让Timer第6豪秒 实时改变时分秒的角度

“”

最后在 timer事件写下计算代码如下:

【原创】Delphi GridPanelLayout 控件 value 值一直无法设置想要结果问题,可以动态设置

当 设置 多个 RowCollection  或 ColumnCollection 时,发现它是不会得到你想要的值的,因为当你在设置的时候,另一个节点其实也在触发 change 的 ,所以很难得到想要的平均值,这时我们可以动态设置 代码如下: