[Delphi] NEXT BUTTOM wie mache ich so was?

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von Power_of_shit, 2. Juli 2008 .

Schlagworte:
  1. 2. Juli 2008
    NEXT BUTTOM wie mache ich so was?

    Also ich bin noch ein Anfänger mit Delphi(kann batch:] ) und Frage mich wie ich einen Buttom machen kann der wenn ich darauf klicke zum nächsten Form geht??

    1. Geht sowas!

    wenn ja dann Danke ,Wenn aber nein welche möglichkeiten gibt es (also 2buttoms auftauchen und sich das bild TOTAL verändert)?(
     
  2. 2. Juli 2008
    AW: NEXT BUTTOM wie mache ich so was?

    1. Grundsätzlich gilt beim programmieren es geht alles.....

    @Topic
    Es gibt verschiedene möglich das zu realisieren was du vor hast:

    Zum Anzeigen eines Formulars, das du über "Datei->Neu->Formular" erstellen kannst, kannst du
    mit dem folgenden (Pseudo-)Code anzeigen lassen:
    Code:
    FormularName.Show;
    
    Oder wenn du die Element innerhalb des Formulars mittels "Seiten" ändern willst:
    Erstellst ein TNotebook in deinem Formular setzt die Eigenschaft "Align" des Objekts
    auf "alClient", sodass sich das Objekt an die Fenstergröße des Formulars automatisch anpasst.
    Anschließend kannst du über die Eigenschaft "Pages" des Objektes weiter Seiten hinzufügen
    und über "Rechtslkick->Vorherige/Nächste Seite" die Seiten ansteuern in denen du deine Elemente
    Platzieren kannst. Wenn du das hast kannst du mit dem folgendem Code die Seiten (mit ihrem Inhalt der
    Controlelementen) über verschieden (Button-) Ereignissen ansteuern:
    Code:
    NotebookName.ActivePage = 'SeitenName';
    Ich hoffe du hast das einigermaßen Verstanden.

    Mfg Rushh0ur
     
  3. 2. Juli 2008
    AW: NEXT BUTTOM wie mache ich so was?

    Vorraussetzung ist natürlich das du in der VCL schon eine andere Form erstellt hast

    entweder per
    Code:
    FormName.Show;
    bzw. wenn du willst das man sonst keine andere Form benutzen kann
    Code:
    FormName.ShowModal;
    ansonsten müsste auch
    Code:
    FormName.Visible := true;
    funktionieren
     
  4. 3. Juli 2008
    AW: NEXT BUTTOM wie mache ich so was?

    und nicht vergessen die form beim uses mit einzutragen
     
  5. 3. Juli 2008
    AW: NEXT BUTTOM wie mache ich so was?

    @Mutator Danke

    @Rushh0ur

    Neee das mit dem Tnotebook is nicht das was ich meine!

    Ich meinte zum Beispiel Seite 1 steht ein buttom wenn ich darauf klick verschwindet er und es kommt eine seite mit bildern und wieder ein next!

    ABER die 1. seite soll sich nicht immer verändern!


    Beispiel: Installation

    ABER die 1. seite soll sich nicht immer verändern!
     
  6. 3. Juli 2008
    AW: NEXT BUTTOM wie mache ich so was?

    Meinst evtl. ein TPagecontrol oder TTabsheet?
     
  7. 3. Juli 2008
    AW: NEXT BUTTOM wie mache ich so was?

    könnte sein aber ich weiß halt noch nicht was das ist (bin noch ein voll NOOOOOOB)
     
  8. 3. Juli 2008
    AW: NEXT BUTTOM wie mache ich so was?

    meinst du sowas wie einen foto betrachter??? dann lad doch einfach immer das nächste bild auf der form beim button klick
     
  9. 3. Juli 2008
    AW: NEXT BUTTOM wie mache ich so was?

    nein ich meine das die eine form verschwindet und die andere auftaucht!
     
  10. 4. Juli 2008
    AW: NEXT BUTTOM wie mache ich so was?

    form1.hide um die zu verstecken und form2.show damit kannst du das realisieren allerdings kannst du den button nicht von form1 auf form2 schieben zumindist über vlc geht das meine ich nicht. wenn du non vlc codest kann das dass du das so realisieren kannst. denke mal das du ein wenig tricksen musst einfach noch nen button auf der zweiten form und gut ist. kannst ja denn ersten button aus der form fliegen lassen mit button.left oder button.top
     
  11. 4. Juli 2008
    AW: NEXT BUTTOM wie mache ich so was?

    Mit TNoteBook ist das beschrieben möglich, einfach "Align" auf standart lassen;
    Objekt an den zu "ändernden" Bereich anpassen, "Seiten" mit Controls wie "Next",
    "Install" was auch immer füllen, Ereignisse auf diese setzen bei denen die nächste "Seite"
    aufgerufen wird und im MainForm ganz normal die sachen Platzieren die sich nicht ändern
    sollen.

    Beispiel einer Installation:
    Spoiler
    PAS File (Quellcode):
    Code:
    unit Unit1;
    
    interface
    
    uses
     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
     Dialogs, StdCtrls, ExtCtrls;
    
    type
     TMainForm = class(TForm)
     Image: TImage;
     Notebook: TNotebook;
     ButtonNext: TButton;
     ButtonInstall: TButton;
     Label1: TLabel;
     Label2: TLabel;
     Edit1: TEdit;
     ButtonExit: TButton;
     procedure ButtonNextClick(Sender: TObject);
     procedure ButtonInstallClick(Sender: TObject);
     procedure ButtonExitClick(Sender: TObject);
     private
     { Private-Deklarationen }
     public
     { Public-Deklarationen }
     end;
    
    var
     MainForm: TMainForm;
    
    implementation
    
    {$R *.dfm}
    
    procedure TMainForm.ButtonNextClick(Sender: TObject);
    begin
     Notebook.ActivePage := 'PathSelect';
    end;
    
    procedure TMainForm.ButtonInstallClick(Sender: TObject);
    begin
     Notebook.ActivePage := 'Install';
    end;
    
    procedure TMainForm.ButtonExitClick(Sender: TObject);
    begin
     Close;
    end;
    
    end.
    
    DFM File (Formuler Code):
    Code:
    object MainForm: TMainForm
     Left = 276
     Top = 311
     Width = 390
     Height = 337
     Caption = 'Installation'
     Color = clBtnFace
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clWindowText
     Font.Height = -11
     Font.Name = 'MS Sans Serif'
     Font.Style = []
     OldCreateOrder = False
     PixelsPerInch = 96
     TextHeight = 13
     object Image: TImage
     Left = 8
     Top = 8
     Width = 369
     Height = 225
     end
     object Label2: TLabel
     Left = 8
     Top = 112
     Width = 369
     Height = 17
     Alignment = taCenter
     AutoSize = False
     Caption = 'Dies ändert sich nicht'
     end
     object Notebook: TNotebook
     Left = 8
     Top = 240
     Width = 369
     Height = 57
     TabOrder = 0
     object TPage
     Left = 0
     Top = 0
     Caption = 'Start'
     object ButtonNext: TButton
     Left = 8
     Top = 24
     Width = 75
     Height = 25
     Caption = 'Next'
     TabOrder = 0
     OnClick = ButtonNextClick
     end
     end
     object TPage
     Left = 0
     Top = 0
     Caption = 'PathSelect'
     object Label1: TLabel
     Left = 8
     Top = 8
     Width = 25
     Height = 13
     Caption = 'Path:'
     end
     object ButtonInstall: TButton
     Left = 288
     Top = 24
     Width = 75
     Height = 25
     Caption = 'Install'
     TabOrder = 0
     OnClick = ButtonInstallClick
     end
     object Edit1: TEdit
     Left = 8
     Top = 24
     Width = 265
     Height = 21
     TabOrder = 1
     end
     end
     object TPage
     Left = 0
     Top = 0
     Caption = 'Install'
     object ButtonExit: TButton
     Left = 288
     Top = 24
     Width = 75
     Height = 25
     Caption = 'Exit'
     TabOrder = 0
     OnClick = ButtonExitClick
     end
     end
     end
    end


    Mfg Rushh0ur
     
  12. Video Script

    Videos zum Themenbereich

    * gefundene Videos auf YouTube, anhand der Überschrift.