Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sharky,
15. Mai 2005
Noch ein Nachtrag.
Wenn Du auf ein Menü verzichten möchtest kannst Du das auch im .OnKeyPress deiner Form machen wenn Du .KeyPreview
auf True setzt:
procedure TForm1.FormCreate(Sender: TObject);
begin
KeyPreview := True;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sharky,
15. Mai 2005
Hai,
hier mal ein Beispiel. Es gibt eine TrackBar und zwei Menüeinträge:
procedure TForm1.Lauter1Click(Sender: TObject); // Menüpunkt 1
begin
if (TrackBar1.Position < TrackBar1.Max) then
begin
TrackBar1.Position := TrackBar1.Position + 1;
end;