Forum: Sonstige Fragen zu Delphi
by Super_Chemiker,
29. Dez 2008
procedure TStein.Paint;
var u,v : integer;
begin
canvas.Font.Size := 14;
canvas.Font.Name := 'Comic Sans MS';
x := (Width - Canvas.TextWidth(Caption)) div 2;
y := (Height- Canvas.TextHeight(Caption)) div 2;
Canvas.Rectangle (3, 3, Width-3, Height-3);
if Pressed then
begin
Forum: Sonstige Fragen zu Delphi
by Super_Chemiker,
29. Dez 2008
@ Sir Thornberry
besser?
ich hab jetzt mal einen ansatz, aber es wird immernoch nichts angezeigt!:
...
constructor TStein.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Color := clBtnFace;
Forum: Sonstige Fragen zu Delphi
by Super_Chemiker,
28. Dez 2008
hi, ich will eine klasse machen
mein ansatz:
...
TStein = class(TControl)
public
Pressed: Boolean;
constructor create;
property OnMouseDown;
property Caption;