【初心者】課題をクリアしていくスレ【講習会】

【初心者】課題をクリ ..

118:名前は開発中のものです。
04/06/21 23:47 8Xx3uQUF.net
赤い四角、Delphiです
procedure TForm1.Button1Click(Sender: TObject);
begin
ClientWidth:=640;
ClientHeight:=480;
Canvas.Brush.Color:=clRed;
Canvas.FillRect(Rect(0,0,320,240));
end;

次ページ

続きを表示

1を表示