Vielen dank für die Antwort. Verwende nun die Klasse.
Habe allerdings noch ein problem. Unzwar aktualisiert
sich das Bild nicht.
Code:
procedure TMainFrm.Button1Click(sender: TObject);
begin
Cards.DrawCard(Image1.Canvas.Handle,Point(0,0),SuitClubs,FaceQueen,false);
end;
procedure TMainFrm.Button2Click(sender: TObject);
begin
Cards.DrawCard(Image1.Canvas.Handle,Point(0,0),SuitClubs,FaceKing,false);
end;
Wenn ich auf Button1 klicke wird zwar die Dame angezeigt, wenn ich
aber nun auf Button2 klicke, wird weiterhin die Dame angezeigt.