Hi All,

I have a TEdit (for email subject) and a TMultiLineEdit for email message. The user is able to use variables in both of these, by entering things like %STAFF_NAME%.

I would like to allow the user to click on a Label and then insert the variable text into the TEdit or TMultiLineEdit at the current cursor position. Can anyone tell me how to do this?

Thanks heaps,
Paul

Paul,
 
> I would like to allow the user to click on a Label and then insert the variable text into the TEdit or TMultiLineEdit at the current cursor position. Can anyone tell me how to do this?

For a TMultiLineEdit you can use the SelectionStart property, e.g.:

procedure TForm1.Button1Click(Sender: TObject);
var
   p: Integer;
begin
   p := MultiLineEdit1.SelectionStart;
   MultiLineEdit1.Lines.Text := Copy(MultiLineEdit1.Lines.Text, 1, p) + ' %STAFF_NAME% ' + Copy(MultiLineEdit1.Lines.Text, MultiLineEdit1.SelectionStart+1, Length(MultiLineEdit1.Lines.Text));
end;

With a TEdit component it won't work though.

Uli

Hey Uli,

>>    MultiLineEdit1.Lines.Text := Copy(MultiLineEdit1.Lines.Text, 1, p) + ' %STAFF_NAME% ' +
>> Copy(MultiLineEdit1.Lines.Text, MultiLineEdit1.SelectionStart+1, Length(MultiLineEdit1.Lines.Text));
>> end;

Thanks heaps mate. Appreciate it.

Cheers,
Paul