Richedit1.Font.Name:='Lucida Console'; sendmessage(Richedit1.handle,WM_IME_CHAR,$2192,0);
var DC : hdc; Pen : HPen; begin // obtient le handle et contexte du TRichEdit DC := GetDc(Editor.Handle); Pen:=CreatePen(PS_Dot,0,RGB(0,0,255)); SelectObject(DC,Pen); // Dessine une ligne MoveToEx(Dc, 0, 0, nil); LineTo(Dc, 0, 30);
procedure TForm1.Button3Click(Sender: TObject); var UnicodeString: PWideChar; begin UnicodeString := WideChar($003E); RichEdit1.Lines.Add(WideCharToString(UnicodeString)); end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionrichedit1.SelStart := SendMessage(richedit1.Handle, EM_LINEINDEX, ligne, 0)+colonne; sendmessage(Richedit1.handle,WM_IME_CHAR,$2192,0);Et voila pour ce qui est de la position ;)
procedure TForm1.Button1Click(Sender: TObject); begin richedit1.SelStart := SendMessage(richedit1.Handle, EM_LINEINDEX, 10, 0) + 5; sendmessage(Richedit1.handle, WM_IME_CHAR, $2192, 0); end;
Form1.richedit1.Clear; L0:=' '; L1:=' '; L2:=' '; L3:=' '; Form1.richedit1.Lines[0]:=L0+#13+#10; Form1.richedit1.Lines[1]:=L1+#13+#10; Form1.richedit1.Lines[2]:=L2+#13+#10; Form1.richedit1.Lines[3]:=L3;