搭Firemonkey积木,关于一些样式和控件

一直以来觉得编程界面就像是搭积木,元素越多,组合也就越多,但大多数程序都用相同的积木来堆,不免有些视觉疲劳,所以firemonkey提供了一个很好的平台,让我们自己做一些自己特有的积木,这样搭出来的效果就会绚丽很多,至少不会跟别人的一样~

 

积木1 popup+panel制作一个提示,一下是效果图

建立一个popup,在popup里在建立一个panel,设置panel的属性和stylelookup为提示框样式,按钮的click事件只要show一下这个popup就可以了:

procedure TForm1.Button1Click(Sender: TObject);
begin
    popup1.IsOpen := true;
end;

 未完,待续.会持续跟新