// 9个显示函数 procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); virtual; // 虚函数,important 根据父控件 // 手法:固定不变的模式,或者简单调用,或者简单设置标志位,就不是虚函数。 ... Read More
posted @ 2015-08-25 19:42
findumars
Views(429)
Comments(0)
Diggs(0)
前提条件:要明白在TWinControl有以下四个函数的存在,注意都是虚函数:procedure Invalidate; override;procedure Update; override;procedure Repaint; override; // 相当于前两句的组合procedure Se... Read More
posted @ 2015-08-25 16:37
findumars
Views(701)
Comments(0)
Diggs(0)
procedure TForm1.Button3Click(Sender: TObject);begin if (csOpaque in ControlStyle) then ShowMessage('不透明') else ShowMessage('透明') // Form透明end;proc... Read More
posted @ 2015-08-25 04:25
findumars
Views(3782)
Comments(0)
Diggs(0)

浙公网安备 33010602011771号