AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi 3 x ComboBox in InputBox mit Event. Bitte helfen

3 x ComboBox in InputBox mit Event. Bitte helfen

Ein Thema von IMPEGA · begonnen am 7. Sep 2017 · letzter Beitrag vom 12. Sep 2017
Antwort Antwort
Seite 1 von 2  1 2   
IMPEGA

Registriert seit: 19. Jan 2008
Ort: Brhv
80 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

3 x ComboBox in InputBox mit Event. Bitte helfen

  Alt 7. Sep 2017, 18:30
Hallo mal wieder.

Ich versuche zur Laufzeit in einer InputBox 3 ComboBoxe's zu erstellen.
So weit funktioniert Alles.
Ich habe Probleme mit den Events.
Ich möchte die Combos voneinander abhängig machen.
Sprich Falls ich in Combo1 "Wert1" einstelle, sollten Combo2 und Combo3 automatisch den "Wert"2 und "Wert3" erhalten.
Wenn ich in Combo1 "Wert2" einstelle sollten Combo2 "Wert3" und Combo3 den "Wert1" erhalten. u.s.w
Das Auslagern in 2-te Unit muss auch vorhanden sein.
Hätte ich das ganze in Form1 packen können wäre es auch kein Problem. Es muss aber genau so wie in Muster angegeben erledigt werden.

Die Lösung für ein Event habe ich so weit im Netz gefunden, leider habe ich keine Ahnung wie man es auf die Combos zur Laufzeit erstellt anwenden könnte.
Mein Testprojekt habe ich angehängt. Habt bitte Mitleid mit mir. Coden ist nur mein Hobby.

Hoffentlich habe ich mein Problem ausreichend beschrieben und erhalte paar Ansätze.
Angehängte Dateien
Dateityp: rar Test mit ComboBox (Laufzeit).rar (4,7 KB, 8x aufgerufen)
  Mit Zitat antworten Zitat
IMPEGA

Registriert seit: 19. Jan 2008
Ort: Brhv
80 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#2

AW: 3 x ComboBox in InputBox mit Event. Bitte helfen

  Alt 11. Sep 2017, 15:36
Ich kann leider nicht mehr editieren.

Problem gelöst. Win32API zu Hilfe genommen und schon ging es.
Schade nur dass Niemand was dazu geschrieben hat.
Macht aber nichts. Hauptsache ich habe es gelöst.
  Mit Zitat antworten Zitat
Benutzerbild von haentschman
haentschman

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.275 Beiträge
 
Delphi 12 Athens
 
#3

AW: 3 x ComboBox in InputBox mit Event. Bitte helfen

  Alt 11. Sep 2017, 15:47
Moin...
Zitat:
Problem gelöst. Win32API zu Hilfe genommen und schon ging es.
...das würde mich mal interessieren.
Zitat:
Schade nur dass Niemand was dazu geschrieben hat.
...weil keiner weiß was du vorhast?
Zitat:
Ich versuche zur Laufzeit in einer InputBox 3 ComboBoxe's zu erstellen.
Müssen die CB auch zur Laufzeit erzeugt werden? Geht auch auch auf dem Formular? Immer 3 CB? Dynamische Erzeugung des Forms? Warum?
...soviele Unklarheiten warum du sowas machst. Ich wette es gibt eine einfache Lösung dafür.
Delphi-Quellcode:
Combo1 := TComboBox.Create(Form);
  with Combo1 do
    begin
      Parent := Form;
      Style := csDropDownList;
      Items.Assign(AList);
      ItemIndex := 0;

      Left := Prompt.Left;
      Top := Prompt.Top + Prompt.Height + 5;
      Width := 80;
      TMethod(Event).Code := @Combo1Change;
      TMethod(Event).Data := Combo1;
      OnChange := Event;
    end;
Wo hast du das mit dem Pointer auf das Event her?

Geändert von haentschman (11. Sep 2017 um 16:02 Uhr)
  Mit Zitat antworten Zitat
IMPEGA

Registriert seit: 19. Jan 2008
Ort: Brhv
80 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#4

AW: 3 x ComboBox in InputBox mit Event. Bitte helfen

  Alt 11. Sep 2017, 19:38
Nun bekomme ich doch eine Antwort. Selbst wenn Sie zu komischer Zeit kommt und nicht hilfreich ist.
Trotzdem antworte ich gerne.
Zitat:
...weil keiner weiß was du vorhast?
Ich habe gehofft mich gut genug ausgedrückt zu haben, ansonsten mal nachfragen hätte nicht geschadet.
Zu anderen Aussage. Ich habe ein Projekt hinzugefügt was mein Vorgehen eigentlich sehr genau darstellt.
Zitat:
Müssen die CB auch zur Laufzeit erzeugt werden? Geht auch auch auf dem Formular? Immer 3 CB? Dynamische Erzeugung des Forms? Warum?
...soviele Unklarheiten warum du sowas machst. Ich wette es gibt eine einfache Lösung dafür
Hier könnte ich weit ausholen, mache es aber nicht.
Die Antwort ist recht einfach. Ich habe mir etwas ausgedacht und versuche es umzusetzen.
Um die Sache als Vorlage zB. für andere Projekte zu haben arbeite ich oft mit Dynamischen Objekten.
Und die letzte Sache wäre viel wichtiger. Man muss nicht immer den leichtesten Weg gehen.
Um etwas zu lernen gebe ich mir eine Aufgabe und versuche die zu lösen.
Nicht verwechseln mit Umgehen.
Deshalb auch habe ich nicht nach einer Lösung gefragt, sondern nach Tipps um weiter zu kommen.
In diesem Fall hätte es gereicht zu schreiben: "Versuche doch mit Win32API" und Findwindow.
Damit wäre ich schon gut bedient.

Deine letzte Frage:
Zitat:
Wo hast du das mit dem Pointer auf das Event her?
Kann ich leider nicht beantworten. Ich habe im Netz nach Ansätzen gesucht und irgendwann etwas zu dem Thema gefunden.
Nach einer ausführlichen Analyse entstand das eben.
Wie ich schon gesagt habe. Ich code nur aus Spaß an der Sache.

PS: Wegen einige Missverständnisse habe ich meinen fehlerhaften Code raus gelöscht.
Per PN kann ich mich gerne darüber weiter unterhalten.

Geändert von IMPEGA (12. Sep 2017 um 07:33 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#5

AW: 3 x ComboBox in InputBox mit Event. Bitte helfen

  Alt 11. Sep 2017, 20:06
Hilfe geschieht hier alleine auf freiwilliger Basis. Es besteht kein recht auf eine (hilfreiche) Antwort. Also bitte bedenke das in Zukunft.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
IMPEGA

Registriert seit: 19. Jan 2008
Ort: Brhv
80 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#6

AW: 3 x ComboBox in InputBox mit Event. Bitte helfen

  Alt 12. Sep 2017, 07:45
@Luckie
Danke für deine hilfreiche Belehrung.
Nun habe ich das Prinzip "Forum" verstanden.
Das hilft mir bei meinem Problem und bringt mich weiter.
Bin selbstverständlich für jede Hilfe dankbar.
Schade dass du nichts zum Thema geschrieben hast, aber immerhin etwas geschrieben.
Zitat:
Es besteht kein recht auf eine (hilfreiche) Antwort.
Zeige mir bitte einen Satz von mir wo ich unfreundlich war, oder etwas verlangt habe.
Wenn man eigenes Bedauern nicht mehr aussprechen kann dann kannst du das Forum gleich vergessen.
Einen schönen Tag wünsche ich.
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#7

AW: 3 x ComboBox in InputBox mit Event. Bitte helfen

  Alt 12. Sep 2017, 08:01
Das wsr nur vorbeugend erwähnt. Aber das
Zitat:
Nun bekomme ich doch eine Antwort. Selbst wenn Sie zu komischer Zeit kommt und nicht hilfreich ist.
tendiert in die Richtung. Einfach bitte in Zukunft etwas auf die Wortwahl achten. Es könnte schnell missverstanden werden.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von haentschman
haentschman

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.275 Beiträge
 
Delphi 12 Athens
 
#8

AW: 3 x ComboBox in InputBox mit Event. Bitte helfen

  Alt 12. Sep 2017, 08:30
Moin...
Zitat:
Man muss nicht immer den leichtesten Weg gehen.
Ist schon richtig. Aber mit Badelatschen über den Mount Everest zu klettern ist eher uncool.
Zitat:
In diesem Fall hätte es gereicht zu schreiben: "Versuche doch mit Win32API" und Findwindow.
Damit wäre ich schon gut bedient.
Das wirst du hier eher selten hören. Delphi ist quasi, sinngemäß, ein Wrapper um die WinApi, damit man sich nicht darum kümmern muß. Es gibt kaum Fälle wo man mit Delphi Bordmitteln nicht zurecht kommt.
Zitat:
Um die Sache als Vorlage zB. für andere Projekte zu haben arbeite ich oft mit Dynamischen Objekten.
Ist ok... Aber ist imho das dynamische Erzeugen von Controls eher hinderlich. Als Vorlage eignen sich dann eher Forms mit Ableitungen oder Frames mit Ableitungen und den Controls drauf. Diese Forms werden dann, wenn gewollt, dynamisch erzeugt.

Wenn du magst, kann ich das Testprojekt mit Hilfe der VCL abändern.

Geändert von haentschman (12. Sep 2017 um 08:39 Uhr)
  Mit Zitat antworten Zitat
IMPEGA

Registriert seit: 19. Jan 2008
Ort: Brhv
80 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#9

AW: 3 x ComboBox in InputBox mit Event. Bitte helfen

  Alt 12. Sep 2017, 09:01
@haentschman
Danke für die nette Antwort.
Zitat:
Wenn du magst, kann ich das Testprojekt mit Hilfe der VCL abändern.
Danke nicht nötig , das ist kein Problem für mich. Es sollte so laufen wie ich es gemacht habe.

Nun aber die Antwort warum.
Ich habe ein Menü, darin habe viele Optionen eingebaut.
Eins Davon , bzw. mehrere davon sollten die Möglichkeit bieten eine Wahl zu treffen.
Es sollte aber Idiotensicher sein und eben die doppelte Einstellungen vorbeugen.
Es sei denn man will es gezielt.

Also funktioniert es momentan so.
In meinem Menü wird zB. gezeigt
Wert zum testen : Wert1|Wert2|Wert3

Ein Klick drauf zeigt mir eine InputBox mit 3 Combos
Ich treffe die Wahl in den Combos und mein Menü wird angepasst.
Wert zum testen : Wert2|Wert3|Wert1
Je nach getroffene Wahl.

Das steckt dahinter. natürlich arbeite ich meistens mit VCL. Einfacher, leichter aber bei 20 zu ändernden Optionen mit immer wechselnden Werten und Parametern sehe ich in der Dynamik die Lösung. Man braucht etwas, erstellt es und löscht es anschließend.
Es bedarf nur 2 functionen. Die passende Werte übergebe ich halt per StringList und schon läuft das Ganze.

Mir ist auch sehr wichtig der Lerneffekt.
Ich mag nicht wirklich Probleme zu umgehen. Ich mag Sie zu lösen.
Mag sein dass ich später es ändere und doch noch zurück rudere. Das gelernte bleibt aber im Kopf.
Schon alleine deswegen hat sich das gelohnt.
  Mit Zitat antworten Zitat
Benutzerbild von haentschman
haentschman

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.275 Beiträge
 
Delphi 12 Athens
 
#10

AW: 3 x ComboBox in InputBox mit Event. Bitte helfen

  Alt 12. Sep 2017, 18:40
Moin...
Zitat:
Also funktioniert es momentan so.
In meinem Menü wird zB. gezeigt
Wert zum testen : Wert1|Wert2|Wert3

Ein Klick drauf zeigt mir eine InputBox mit 3 Combos
Ich treffe die Wahl in den Combos und mein Menü wird angepasst.
Wert zum testen : Wert2|Wert3|Wert1
Je nach getroffene Wahl.
...wenn ich die Tage Zeit habe, mache ich das gleiche, ohne WinAPI, nur mit VCL. Dann wirst du merken, wie wenig du eigentlich an Code (Zeilen) brauchst.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:20 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz