チェックボックスを押すとedit1.Text値を変えるようにするには＿

解決

sox 2006-02-12 01:36:55 No: 19984

チェックボックスを押すとEdit1.Textの文字列を一定のものに変えたいのですが、何かサンプルコードや参考になるページがあれば教えて下さい

HOta 2006-02-12 18:34:51 No: 19985

イベントをHelpで見れば？

(~*~) 2006-02-12 20:08:49 No: 19986

自分でやってみたのか？
チェックボックスのイベントのどれを使っても、できないのか？

Unit1 2006-02-12 20:37:51 No: 19987

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    CheckBox1: TCheckBox;
    Edit1: TEdit;
    procedure CheckBox1Click(Sender: TObject);
  end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
Edit1.Text := 'sax six sux sex sox';
end;

end.

sox 2006-02-12 20:38:14 No: 19988

えっと、下が使ってみたコードなのですが、Falseの値になっても「かきくけこ」にならないのです。
デフォルトがFalseなのが問題ですかやっぱり？
出来れば両方に書き換えを持たせたいのですが。
        if ( CheckBox2.Checked = True ) then
        begin
        Edit2.Text := 'あいうえお';
        if ( CheckBox2.Checked = False ) then
        begin
        Edit2.Text := 'かきくけこ';

begin the begin 2006-02-12 20:49:00 No: 19989

beginを取れば問題無くなると思うけど。

／≫＿≪＼ソーナンス 2006-02-12 23:43:50 No: 19990

／≫＿≪＼ソーナンス

夢謝野交児詐祢熱 2006-02-13 05:37:17 No: 19991

> 出来れば両方に書き換えを持たせたいのですが。

意味ワカンネ

if CheckBox2.Checked then begin
Edit2.Text := 'あいうえお';
end
else begin
Edit2.Text := 'かきくけこ';
end;

１行野郎 2006-02-13 05:49:51 No: 19992

if CheckBox2.Checked then Edit2.Text := 'あいうえお' else Edit2.Text := 'かきくけこ';

夢謝野交児詐祢熱 2006-02-13 05:57:43 No: 19993

> if CheckBox2.Checked then Edit2.Text := 'あいうえお' else Edit2.Text := 'かきくけこ';
ぐっじょぶｂ

sox 2006-02-15 00:17:24 No: 19994

解決しました
有難うございます＞＜