![]() |
bei mir fügt das 1 neue zeile in die memobox und bei form1 caption wird immer um 1 erhöht hehe
ist der code ganz kopiert oder fehlt da ein teil? btw hat "<-" einen "#..." wert? bzw welchen? gruss und danke früs testen =) |
Zitat:
...:cat:... |
Mit '<-' meinte ich die Taste auf der Tastatur die diesen Pfeil nach links hat ;)
|
jo aber man muss die taste jairgendwie benutzen können, also ohne tastatur^^
btw: hatte das nun so
Delphi-Quellcode:
aber die zeile ist nachwievor da :(
procedure TForm1.IdIRC1Message(Sender: TObject; AUser: TIdIRCUser;
AChannel: TIdIRCChannel; Content: String); begin memo1.Lines.Add('[' + auser.Nick + '] ' + content); PostMessage(Memo1.Handle, WM_KEYDOWN, VK_BACK, 0 ); end; |
Zitat:
Wenn du danach Zeilen per Memo1.Lines.Add() hinzufügst sollte die leere Zeile nicht mehr auftreten. Bei mir klappt das so, ich hab hier Delphi 7 auf Win XP laufen. |
Und jetzt noch als Programm:
nimm einen Button und ein Memo Feld
Delphi-Quellcode:
unit Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private-Deklarationen } public { Public-Deklarationen } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin memo1.Text:=''; memo1.Lines.Add('Hallo'); PostMessage(Memo1.Handle, WM_KEYDOWN, VK_BACK, 0 ); end; procedure TForm1.Button1Click(Sender: TObject); begin memo1.Lines.Add('test') end; end. |
stimmt, wenn ich ein neues project mache mit den 2 komponenten gehts....bei meinen prog funzt das nicht, kannst daran liegen das
BorderStyle BsNone ist?? |
So, ich glaub ich habs:
Delphi-Quellcode:
Für das einmal irgendwann aus, das sollte reichen.
memo1.SelStart:=length(memo1.Text);
PostMessage(Memo1.Handle, WM_KEYDOWN, VK_BACK, 0 ); |
jo klappt, danke :)
|
komisch in meinem projext funzte es nict, nichtmal wenn ich neues memo einfüg und damit teste, was ist das bloss :\
sieht doof aus wenn beim chat eine zeile leer ist |
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:12 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz