ボタンを押すとボタン1が横に、ボタン2が縦に伸びるだけなモノ。 - AQUA Company

これはなに？

• 名前のとおりです。
• ほかに機能はありません。
• コードを見てもらえればその無意味さがさらによくわかります。
• 2画面で作ったのでバグって画面の外に行っちゃってだめです。

ソースと思われるもの

-unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,    StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;
 
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 Button1.Width := Button1.Width + 2 ;
 Button1.Left := Button1.Left - 1 ;
 Button2.Height := Button2.Height + 2 ;
 Button2.Top := Button2.Top -1
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Button1.Width := 75 ;
 Button1.Left := 40 ;
 Button2.Height := 25 ;
 Button2.Top := 112 ;
end;

end.

ダウンロード

特に意味はないけどそこをあえてDLする。(410kb)

CopyRight 206 k of die