Guten Abend,
eine Schönheitskorrektur:
Delphi-Quellcode:
procedure TForm1.Edit1Change(Sender: TObject);
begin
gros := 1;
if StrToInt(edit1.Text) < 10 then
begin
form1.font.color := clblack;
label8.hide;
gros := StrToInt(edit1.text);
end
else
begin
form1.font.color := clred;
Label8.show;
Label8.caption := 'Fehler!';
end;
end;
Wie benutze ich rectangle:
Zitat von
DelphiHilfe:
Draws a rectangle on the canvas.
procedure Rectangle(X1, Y1, X2, Y2: Integer); overload;
procedure Rectangle(const Rect: TRect); overload;
Description
Use Rectangle to draw a rectangle using Pen and fill it with Brush. Specify the rectangle’s coordinates in one of two ways:
Giving four coordinates that define the upper left corner at the point (X1, Y1) and the lower right corner at the point (X2, Y2).
Using a TRect type.
To fill a rectangular region without drawing the boundary in the current pen, use FillRect. To outline a rectangular region without filling it, use FrameRect or Polygon. To draw a rectangle with rounded corners, use RoundRect.
Grüße
Klaus