Forum: Sonstige Fragen zu Delphi
by DeddyH,
29. Dez 2008
Versuch es mal mitCanvas.Brush.Style := bsClear;vor dem TextOut.
Forum: Sonstige Fragen zu Delphi
by DeddyH,
29. Dez 2008
Wenn es nicht zuviel ist, zeig doch nochmal den gesamten Quelltext.
Forum: Sonstige Fragen zu Delphi
by DeddyH,
29. Dez 2008
Du musst die Paint-Methode überschreiben.
Forum: Sonstige Fragen zu Delphi
by DeddyH,
29. Dez 2008
Dann würde ich an Deiner Stelle von TGraphicControl oder von TCustomControl ableiten, die bringen beide bereits einen Canvas mit. Wenn Deine Komponente kein Fensterhandle für z.B. den Fokus braucht, empfiehlt sich TGraphicControl. Näheres dazu kannst Du in der Hilfe nachlesen.
Forum: Sonstige Fragen zu Delphi
by DeddyH,
28. Dez 2008
procedure TForm1.FormCreate(Sender: TObject);
begin
test := TStein.create(self);
end;
Hab das mal etwas verbessert.