Checkbox Delphi

Delphi

08/04/2018

Bom eu criei checkbox's com opções exemplo
Time
Tempo

quando a pessoa marcar o checkbox eu quero que apareça um texto no memo1 tipo, "Você marcou a opção Time" .

como faço isso?
Fábio Martins

Fábio Martins

Curtidas 0

Respostas

Raimundo Pereira

Raimundo Pereira

08/04/2018

R *.dfm}

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
VerificaCK;
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
VerificaCK;
end;

procedure TForm1.VerificaCK;
begin
if CheckBox1.Checked=true then
Memo1.Lines.Add('Você marcou a opcao Time');

if CheckBox2.Checked=true then
Memo1.Lines.Add('Você marcou a opcao Tempo');


end;


GOSTEI 0
Fábio Martins

Fábio Martins

08/04/2018

Posso aproveitar e perguntar outra coisa como faço para quebrar linha? no mesmo memo tipo

Memo1.Lines.Add('Você marcou a opcao Tempo
tempo 2
tempo 3

');

assim não vai, tem como quebrar a linha no memo.add?
GOSTEI 0
Raimundo Pereira

Raimundo Pereira

08/04/2018

if CheckBox1.Checked=true then
Memo1.Lines.Add('Você marcou a opcao');
Memo1.Lines.Add('tempo 2');

if CheckBox2.Checked=true then
Memo1.Lines.Add('Você marcou a opcao');
Memo1.Lines.Add('tempo 3');
GOSTEI 0
POSTAR