![]() |
à la excel - gleichzeit in grid und edit control schreiben
der folgende Codeschnippsel funktioniert zwar - aber es geht bestimmt besser?
Delphi-Quellcode:
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
var AHandle: HWnd; sBuf: string; bDoSendMessage: Boolean; begin AHandle := edit1.Handle; bDoSendMessage := False; sBuf := edit1.Text; if Key = char(vk_Back) then begin delete(sBuf,length(sBuf),1); bDoSendMessage := True; end else if ord(key)>=vk_Space then begin sBuf := sBuf + Key; bDoSendMessage := True; end; if bDoSendMessage then SendMessage(AHandle, WM_SETTEXT, 0, Integer(PChar(sBuf))); end; |
Re: à la excel - gleichzeit in grid und edit control schreib
[push]
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:02 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