关于控件运行期与设计期重复create的问题.
各位,小弟初学Delphi,刚刚学到写控件这个方面,但是遇到一个棘手的问题(对于我来说),请大家帮忙解答一下.不胜感激!
正文:
我写了一个控件,打算用来仿WIN8的Metro风格. 如图
但是这只是设计期
运行期会出现这个问题.
如图.
我单步运行检查的时候发现是设计期create一次,运行的时候又create了一次. 我查阅了资料,看到可以判断是不是在设计期.
我用了这个方法,但是好像不适用,因为所有东西都要在设计期进行调整. 所以,现在想请各位帮帮忙了. 天资愚钝实在想不出解决办法了. 下面是源码.
unit MetroTitle;interfaceuses System.UITypes, System.Classes, FMX.ListBox, FMX.Layouts, FMX.Types, FMX.Controls, FMX.Objects, FMX.Effects,System.Types; type TMetroTitle = class(TImage) private FRectangle : TRectangle; FPanel : TPanel; FTiTleText : TText; FText : TText; FReflection : TReflectionEffect; procedure SetPanelColor(Color : TAlphaColor); function GetPanelColor : TAlphaColor; procedure SetText(Text : string); function GetText : string; procedure SetTitleText(Text : string); function GetTitleText : string; procedure SetReflectionDepth(Value : Single); procedure SetReflectionEnabled(Value : Boolean); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; published property TiTle_Text : string read GetTitleText write SetTitleText; property Text : string Read GetText Write SetText; property Color : TAlphaColor read GetPanelColor write SetPanelColor; property Reflection : Boolean write SetReflectionEnabled; property ReflecDepth : Single Write SetReflectionDepth; end;procedure Register;implementation{ TMetroTitle }procedure Register;begin RegisterComponents('Metro', [TMetroTitle);end;constructor TMetroTitle.Create(AOwner: TComponent);var My : TMetroTitle;begin inherited Create(AOwner); Self.Width := 217; Self.Height := 193; FPanel := TPanel.Create(Self); FPanel.Parent := Self; FPanel.Width := Self.Width; FPanel.Height := 56; FPanel.Align := TAlignLayout.alBottom; FPanel.Enabled := False; //FPanel.Position.Y := Self.Height - FPanel.Height; //FPanel.Position.X := 0; FRectangle := TRectangle.Create(Self); FRectangle.Parent := FPanel; FRectangle.Fill.Color := claBlack; FRectangle.Align := TAlignLayout.alClient; FTiTleText := TText.Create(Self); FTiTleText.Parent := FPanel; FTiTleText.Font.Size := 28; FTiTleText.Width := 80; FTiTleText.Height := 25; FTiTleText.Position.X := 0; FTiTleText.Fill.Color := claWhite; FText := TText.Create(Self); FText.Parent := FPanel; FText.Font.Size := 15; FText.Width := FPanel.Width; FText.Height := FPanel.Height - FTiTleText.Height; FText.Fill.Color := claWhite; FText.Position.y := FPanel.Height - FTiTleText.Height ; FReflection := TReflectionEffect.Create(Self); FReflection.Parent := FPanel; FReflection.Length := 0.5; FReflection.Enabled := True; FReflection.Opacity := 0.3; FReflection.Offset := 0; SetAcceptsControls(False);end;destructor TMetroTitle.Destroy;begin //FPanel.Free; // FRectangle.Free; //FTiTleText.Free; //FText.Free; // FReflection.Free; inherited;end;function TMetroTitle.GetPanelColor: TAlphaColor;begin Result := FRectangle.Fill.Color;end;function TMetroTitle.GetText: string;begin Result := FText.Text;end;function TMetroTitle.GetTitleText: string;begin Result := FTiTleText.Text;end;procedure TMetroTitle.SetPanelColor(Color: TAlphaColor);begin FRectangle.Fill.Color := Color;end;procedure TMetroTitle.SetReflectionDepth(Value: Single);begin FReflection.Length := Value;end;procedure TMetroTitle.SetReflectionEnabled(Value: Boolean);begin FReflection.Enabled := Value;end;procedure TMetroTitle.SetText(Text: string);begin FText.Text := Text;end;procedure TMetroTitle.SetTitleText(Text: string);begin FTiTleText.Text := Text;end;end.]