StringGrid Header 高度设定方法: uses FMX.Header; procedure TForm1.StringGrid1ApplyStyleLookup(Sender: TObject); var Obj: TFmxObject; begin // by Aone Obj := StringGrid1.FindStyleResource('header'); if (Obj <> nil) and (Obj is THeader) then THeader(Obj).Si
先上图 帮亲戚做个小软件,选用FMX,因为画面不会像vcl那样在图片多的时候闪烁.还能添加动画 但是MediaPlayer播放音乐视频真是不给力,视频没想到好办法.音频方面想到之前万一的Bass.ll的教程 尝试用FMX做下试试 结果发现Bass也是跨开台,Github上有个老外做了个收音机 下面是从万一博客上拷贝的代码,按照fmx的稍做了点修改 begin if not OpenDialog1.Execute then Exit; BASS_StreamFree(hs); hs := BASS
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); var i: Boolean; begin i := (keyChar <= #8) or (KeyChar<=#8) and (KeyChar<#48) or (KeyChar >#57) ; if i then keyChar := #0;// if not (keyCha