Forum: Programmieren allgemein
by binio,
25. Nov 2005
Dankeschön
Mir wurde super geholfen !!
Nun Poste ich meine Komplette Lösung für die Nachwelt ;)
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
with PageControl1 do
begin
if (Shift = ) and (key in ) then
Forum: Programmieren allgemein
by binio,
25. Nov 2005
Leider nicht.
Er Zeigt mir bei
PageControl1.ActivePage := TabSheet1;
...
PageControl1.ActivePage := TabSheet9;
Tabsheet1 ... Tabsheet9 an, aber wenn ich vorher in Tabsheet1 die Liste angeklickt hatte
dann setzt er das Focus auch in Tabsheet2 ... Tabsheet9 auf die darinenthaltene Liste.
Forum: Programmieren allgemein
by binio,
25. Nov 2005
procedure TForm1.TabSheet1Show(Sender: TObject);
begin
tabsheet1.setfocus;
end;
procedure TForm1.TabSheet2Show(Sender: TObject);
begin
tabsheet2.setfocus;
end;
Forum: Programmieren allgemein
by binio,
25. Nov 2005
procedure TFRMMain.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
with PageControl1 do
begin
if (Shift = ) and (key in ) and (PageCount > key - 49) then
begin
ActivePageIndex := key - 49;
key := 0;
end;
Forum: Programmieren allgemein
by binio,
25. Nov 2005
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ssctrl in shift then begin
case char(key) of
'1':
//tab 1 anzeigen
'2':
//tab 2 anzeigen
Forum: Programmieren allgemein
by binio,
25. Nov 2005
Möchte das immer wenn jemand in mein Delphi Programm + Drückt in die Page-Control-->TabSheet1 springt und der Focus auf der Registerkarte TabSheet1 liegt.
Bei + = Page-Control-->TabSheet2
Bei + = Page-Control-->TabSheet3
...
Bei + = Page-Control-->TabSheet9
Ich habe schon viele Forumeinträge versucht doch keiner Hat wirklich geklappt.
Kann mir Bitte einer Helfen