procedure TForm1.FormCreate(Sender: TObject); var MyShape: TShape; begin MyShape:= TShape.Create(Self); with MyShape do begin Parent:= self; Left:= 100; Top:= 100; Width:= 200; Height:= 150; Shape:= stRectangle; Brush.Color:= clYellow; Pen.Color:= clBlack; end; end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question