Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: TabSheet unter der Maus

    Delphi
    by Gentleman, 27. Dez 2004
  ach so meist du das. :stupid:
  
  hm...da fällt mir spontan nur ein, dass man da vielleicht ein so etwas wie ein Raster verwenden kann, das ist nicht gerade die besste Lösung, aber na ja.
  das würde ich dann in etwa so machen:
  procedure TForm1.PageControl1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
  if X> 70 then
  begin
  PageControl1.TabIndex:= 1;
  end
• Forum: Sonstige Fragen zu Delphi

  Re: TabSheet unter der Maus

    Delphi
    by Gentleman, 27. Dez 2004
  hi!
  
  du kannst das mit TabIndex machen.
  procedure TForm1.Button1Click(Sender: TObject);
  begin
  Edit1.Text:= IntToStr(PageControl1.TabIndex);
  end;
  so kannst du in Edit1 ausgeben welche Tabnummer (beginnend bei 0) gerade ausgewählt ist.
  
  um beim auswählen eines TabSheets ein anderes anzuzeigen, könntest du folgendes verwenden: