Forum: Software-Projekte der Mitglieder
by Aike,
21. Mai 2007
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key='1') or (key='2') {...} then showmessage('Zahl wurde eingegeben')
else showmessage('Keine Zahl eingegeben');
end;Einfach, hässlich, aber es geht ;-)
Forum: Software-Projekte der Mitglieder
by Aike,
19. Mai 2007
Jup, man sollte die Monate "durchscrollen" können oder ähnliches. Das wird viel Arbeit ;-p
So, hab's mal ausprobiert und hier einige Anwendungsverbesserungen:
Bugdetübersicht für einen Monat, ein Jahr oder alle
Alle Listboxen sollten miteinander scrollen, wenn man per Maus scrollt. Ich weiß zwar grade nicht, wie das gehen soll, aber du schaffst das schon ;-p Dass es mit den Pfeiltasten...