Topic: Need some help filling a memo automaticly

Hi, is there a way to write something automaticly on a specific memobox? For instance


form1.memobox1.text = (action1.text) and (action2.text) and (action3.text)


if from1.checkbox.checked then
begin
action1.text = Person clicked on checkbox
end

procedure form1_combobox_onchange

action2.text = (person changed combobox to) + from1.combobox.text



This is just an example, probably i have syntax errors here, but what i want to make is create a history log.
Useful to see if people are "deleting" records or making mistakes

Re: Need some help filling a memo automaticly

i'm explaining this wrong

What i want to do is, create a procedure for some fields, that allows me to "ADD" text to another field:

Example:

form1_combobox1_onchange

add 'Combo1 has been changed' to form1.memo1.text



form1_combobox2_onchange

add 'combo2 has been changed' to form1.memo1.text

So when i click save, i'll also save the memo1.text and i'll ahve this:

Combo1 has been changed Combo2 has been changed

Is this porrible?

Re: Need some help filling a memo automaticly

Try this

procedure Form1_ComboBox1_OnChange (Sender: string);
begin
   Form1.Memo1.Lines.Add('Combo1 has been changed');
end;
Dmitry.

Re: Need some help filling a memo automaticly

thanks! i'm a bit rusty at this, what's the right code for .text "filled" ?

Re: Need some help filling a memo automaticly

Hi VascoMorais,
I have just seen your post.
If you want to see if people are changing records (making mistakes etc), the attachment might be of some help to you.
I have made a quick change to one of my projects to show how I create a very simple 'change log' to keep a history of records that have been altered.
It is a different approach to what you were asking about but achieves the same result so it may be of interest.
Regards,
Derek.

Post's attachments

Attachment icon vasco audit popup.zip 349.82 kb, 540 downloads since 2017-02-04 

Re: Need some help filling a memo automaticly

VascoMorais wrote:

thanks! i'm a bit rusty at this, what's the right code for .text "filled" ?

procedure Form1_ComboBox1_OnChange (Sender: string);
begin
   Form1.Memo1.Lines.Text := Form1.Memo1.Lines.Text + 'Combo1 has been changed';
end;
Dmitry.