Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Stevie,
31. Jan 2005
Ok, hier ein kleiner Denkanstoß, wie man das mit den Tasten regeln könnte:
procedure TListBoxEx.WMKeyDown(var Message: TWMKey);
var
ItemCount: Integer;
ScrollPos: Integer;
begin
ScrollPos := 0;
ItemCount := ClientHeight div ItemHeight;
if Assigned(FOnScroll) then
case Message.CharCode of
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Stevie,
28. Jan 2005
Ein Timer??? Nö!
Ich hab eigentlich nix anderes gemacht, als nicht schon in TListBox drin ist. Das Problem dabei ist, dass die Set-Methode private ist, und ich nicht da ran komme. Deshalb hab ich die Set- und Get-Methoden überschrieben und die Eigenschaft gleich mit, denn dieser sind ja die Methoden zugeordnet. An dieser Stelle muss ich darauf hinweisen, dass man sich hier schon in einem...