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

解決

sox 2006-02-11 16:36:55 No: 19984 IP: 192.*.*.*

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

編集削除

HOta 2006-02-12 09:34:51 No: 19985 IP: 192.*.*.*

イベントをHelpで見れば？

編集削除

(~*~) 2006-02-12 11:08:49 No: 19986 IP: 192.*.*.*

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

編集削除

Unit1 2006-02-12 11:37:51 No: 19987 IP: 192.*.*.*

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 11:38:14 No: 19988 IP: 192.*.*.*

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

編集削除

begin the begin 2006-02-12 11:49:00 No: 19989 IP: 192.*.*.*

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

編集削除

／≫＿≪＼ソーナンス 2006-02-12 14:43:50 No: 19990 IP: 192.*.*.*

／≫＿≪＼ソーナンス

編集削除

夢謝野交児詐祢熱 2006-02-12 20:37:17 No: 19991 IP: 192.*.*.*

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

意味ワカンネ

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

編集削除

１行野郎 2006-02-12 20:49:51 No: 19992 IP: 192.*.*.*

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