名前
題名
▼ Mr.XRAYさん > http://mrxray.on.coocan.jp/Delphi/zip/TFrameSample.zip > > のサンプルで何故例外が発生するか ? ですが， > コメントやらが多すぎて分かりにくいのかな ? > 以下ではどうでしょう． > フォームに TButton を 2 つ，TEdit を 1 つ配置してください． > > 後は，自分で解決するしかないですね．冷たいようですが・・・ > えっ !? 性格悪い ? 最近，耳が遠くなって，よく聞こえませんでした． > > > unit Unit1; > > interface > > uses > Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, > Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; > > type > TForm1 = class(TForm) > Button1: TButton; > Edit1: TEdit; > Button2: TButton; > procedure Button1Click(Sender: TObject); > procedure Button2Click(Sender: TObject); > private > { Private 宣言 } > public > { Public 宣言 } > FEdit : TEdit; > end; > > var > Form1: TForm1; > > implementation > > {$R *.dfm} > > procedure TForm1.Button1Click(Sender: TObject); > begin > Edit1.Color := clGreen; > end; > > procedure TForm1.Button2Click(Sender: TObject); > begin > FEdit.Color := clRed; > end; > > end. >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link