Добрый вечер. Исходный текст можете взять из предыдущего сообщения с тем же названием. Вопрос вот в чем. Как вставить текст как в Peint'e в любое место компонента Image т.е чтобы щелкнуть в нужное место image и ввести текст допустим в edit. За любые ответы спасибо
Если ты хочешь привязываться к Edit, то количество вводимых участков текста или надо ограничивать, или извращаться с новыми Edit'ами. вот что у меня получилось. гадость. работает, но так, что лучше бы не работало. подумаю, как это сделать по-человечески.
procedure TForm1.FormCreate(Sender: TObject); //чтобы мерцания не было begin DoubleBuffered:=true; end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin Image1.Canvas.TextOut(X1,Y1,Key); inc(X1,7); end;
--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует. На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var x1, y1: integer; s: string; begin if key = #13 then begin x1 := edit1.Left; y1 := edit1.Top; s := Edit1.Text;
тогда уж, чтобы выводилось на выбранном пользователем месте
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var x1, y1: integer; s: string; begin if key = #13 then begin x1 := edit1.Left-Image1.Left; //вот здесь y1 := edit1.Top-Image1.Top; //и здесь s := Edit1.Text;
пробовала сначала подобное, но намудрила с сочетанием SetFocus'a и невидимости. не разобралась, в общем
--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует. На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!