TMain - Goethe Gymnasium Dortmund
TMain - Goethe Gymnasium Dortmund
TMain - Goethe Gymnasium Dortmund
Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
procedure TUhr.zeichneUhr;<br />
begin<br />
With kenntContainer.Canvas Do BEGIN<br />
pen.Mode := pmNotXor;<br />
pen.Color := clBlack;<br />
Brush.Color := clYellow;<br />
Ellipse(Xul, Yul, Xul + Breite, Yul - Breite);<br />
zeichneZeiger<br />
END;<br />
end;<br />
end.<br />
unit mHaupt;<br />
interface<br />
uses Windows,…., mUhr, StdCtrls;<br />
type<br />
<strong>TMain</strong> = class(TForm)<br />
BtErzeugen: TButton;<br />
procedure BtErzeugenClick(Sender: TObject);<br />
private<br />
U1 : TUhr;<br />
end;<br />
var Main: <strong>TMain</strong>;<br />
implementation<br />
……………<br />
procedure <strong>TMain</strong>.BtErzeugenClick(Sender: TObject);<br />
begin<br />
U1 := TUhr.Create(20,170,100,Main)<br />
end;<br />
end.<br />
51