我試圖繪製控件時根本無法弄清楚我做錯了什麼。我試過使用TCanvas.BeginScene()/ TCanvas.EndScene(),試圖在其他方法(例如主窗體OnPaint())中繪畫。
我試過TControl.InvalidateRect()。
我什麼也沒得到。Firemonkey控件不繪製
下面是我在我的測試程序:
type
TTestControl = class(TControl)
protected
procedure Paint; override;
end;
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
fTestControl: TTestControl;
end;
procedure TTestControl.Paint;
begin
Canvas.Fill.Color := TColorRec.Blueviolet;
Canvas.FillEllipse(ClipRect, AbsoluteOpacity);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
fTestControl := TTestControl.Create(Self);
fTestControl.Parent := Self;
fTestControl.Align := TAlignLayout.Client;
end;
這應該是足夠的,根據什麼是在線。
有什麼建議嗎?
謝謝!那樣做了。 =) –