Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
17. Jul 2010
Ich habe es vorher nicht gewusst, aber nach dem Hinweis auf den BitBtn in der Hilfe nachgelesen.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
17. Jul 2010
Dann weiß ich auch, wieso der Fehler bei mir nicht aufgetreten ist :zwinker:
Aus der Hilfe zu TBitBtnKind:
Da hamwas.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
17. Jul 2010
Hallo Hans,
die Konstante sLineBreak ist unter Windows als #13#10 (CRLF) definiert, ich hätte also auch gleich #13 schreiben können. Da einige damit aber immer wieder durcheinanderkommen, habe ich mich entschieden, das so zu schreiben, dass jeder weiß, dass damit das erste Zeichen der Konstanten gemeint ist. Und da Windows nunmal einen Ton ausgibt, wenn man im Eingabefeld einer ComboBox RETURN...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
12. Jul 2010
Probier doch einfach meine überarbeitete Version aus und beobachte die Werte im Debugger ;)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
12. Jul 2010
Das wäre mir aber neu. Count gibt die Anzahl der Elemente zurück, d.h. ein Count > 0 heißt mindestens ein Element vorhanden.
OK, hier noch einmal eine überarbeitete Version:
procedure TForm1.cBoxServernameKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var idx: integer;
begin
//Index einmalig ermitteln
idx := cBoxServername.Items.IndexOf(cBoxServername.Text);
...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
11. Jul 2010
Den letzten Eintrag kannst Du bei mir auch löschen, nur kannst Du den ItemIndex nicht setzen, wenn gar keine Items vorhanden sind ;)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
10. Jul 2010
Sollte nicht in beiden Fällen eine Prüfung mit IndexOf ausreichen? Irgendwie sieht mir das so zu kompliziert aus.
Ich dachte mir das in etwa so:
procedure TForm1.cBoxServernameKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var idx: integer;
begin
idx := cBoxServername.Items.IndexOf(cBoxServername.Text);
case Key of
VK_RETURN: begin