Forum: Sonstige Fragen zu Delphi
Delphi
by Stanlay Hanks,
19. Aug 2003
Dann ist deine Lösung natürlich kürzer und besser. :wink:
Man liest sich, Stanlay :hi:
Edit gelöscht...geht doch nicht so :mrgreen:
Forum: Sonstige Fragen zu Delphi
Delphi
by Stanlay Hanks,
19. Aug 2003
Und weil ich so pingelig bin:
Dann gibt's das erste mal, wenn ich Enter drücke, eine Leerzeile....:mrgreen:
Du müsstest also noch abfragen, ob du grade in der ersten Zeile bist.
if Key=VK_RETURN then begin
RichEdit1.SelAttributes.Color:=clRed;
IF RichEdit1.CaretPos.Y <> 0 THEN
RichEdit1.SelText:=#13#10+'
Forum: Sonstige Fragen zu Delphi
Delphi
by Stanlay Hanks,
19. Aug 2003
Naja....da kommen am schluss sachen wie
Hallo
Hallo
Hallo
Forum: Sonstige Fragen zu Delphi
Delphi
by Stanlay Hanks,
19. Aug 2003
Ich .... will ... meinen .... alten .... <weinkrampf kriegt :cry:> ... smiley....bitte!!!!!
Der alte war soooo cool. So ein richtiger Standard Smiley. :love: Also mir persönlich gefällt der am besten...Nett, dass du nen Kompromiss vorschlägst, aber ich persönlich find den alten am besten! :wink:
Man liest sich, Stanlay <hier wäre normalerweise der : hi : Smiley :mrgreen: >
Forum: Sonstige Fragen zu Delphi
Delphi
by Stanlay Hanks,
19. Aug 2003
Hi! Dann setz mal das da statt dem bisherigen QT ein:
if key = VK_RETURN then
begin
RichEdit1.SelAttributes.Color := clred;
IF RichEdit1.CaretPos.y <> 0 THEN
RichEdit1.Lines.Add('');
richedit1.Lines := richedit1.Lines + '
';
RichEdit1.SelAttributes.Color := clblack;
Forum: Sonstige Fragen zu Delphi
Delphi
by Stanlay Hanks,
19. Aug 2003
Kein Problem. Wenn du irgendwo nicht weiterkommst, kannst du ja nochmal fragen. :wink:
PS: Stanlay :wink:
Man liest sich, Stanlay :hi:
Forum: Sonstige Fragen zu Delphi
Delphi
by Stanlay Hanks,
19. Aug 2003
Wenns wirklich an der Abfrage liegt:
Zuerst im Objektinspektor bei den Eigenschaften von Form
"KeyPreview" auf true setzten.
Dann im Obejktinspektor von dem RichEdit auf das Ereignisse Register wechseln und zweimal auf die Zeile mit
OnKeyDown klicken.
Dann wird eine Prozedur erzeugt in die du noch folgendes Einträgst: