26. april 2003 - 14:19
Der er
3 kommentarer
richedit og farver
Jeg skal bruge en procedure til at indsætte noget tekst i slutningen af en richedit... proceduren skal se ud som dette: procedure PasteText(Fra: string; text: string); den skal så indsætte dette i slutningen af richedit: Fra: //dette skal være strengen "fra" text //dette skal være strengen "text" Fra skal så være grå farve text skal være marineblå farve
Annonceindlæg fra Computerworld
26. april 2003 - 15:39
#1
procedure PasteText(Fra: string; text: string); begin form1.RichEdit1.SelAttributes.Color := clsilver; form1.RichEdit1.SelText := fra; form1.RichEdit1.SelAttributes.Color := clblue; form1.RichEdit1.SelText := text; end; procedure TForm1.Button1Click(Sender: TObject); begin pastetext('grå',#13#10+'blå'); end; Stoney