| Autor |
Beitrag |
kaloschke
Hält's aus hier
Beiträge: 9
|
Verfasst: So 25.01.09 16:10
Hi,
wie der Titel schon sagt. Ich kann definieren, was ich will, die Anwendung reagiert nicht auf selbst programmierte Ereignisse im CategoriePanel. Im übergeordneten Container TCaegoriePanelGroup klappt es einwandffrei.
Kann das jemand bestätigen?
Gruß Kaloschke
|
|
jaenicke
      
Beiträge: 19346
Erhaltene Danke: 1754
W11 x64 (Chrome, Edge)
Delphi 12 Pro, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: So 25.01.09 16:50
Hallo und  im Forum!
Nein, das kann ich nicht reproduzieren, ich habe OnClick und OnCollapse ausprobiert, das klappt. Kannst du vielleicht ein kleines Demoprojekt anhängen?
|
|
kaloschke 
Hält's aus hier
Beiträge: 9
|
Verfasst: So 25.01.09 18:45
HI,
danke für die schnelle Antwort.
Anbei ein Test (ohne exe)
Gruß Kaloschke
Einloggen, um Attachments anzusehen!
|
|
jaenicke
      
Beiträge: 19346
Erhaltene Danke: 1754
W11 x64 (Chrome, Edge)
Delphi 12 Pro, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: So 25.01.09 18:54
Du solltest dein Delphi einmal neu installieren. Im Anhang die kompilierte Exe ohne irgendetwas zu ändern, ich hab das Projekt nur geöffnet und kompiliert. Das funktioniert.
Das Delphi 2009 hat (soweit ich weiß) keine Updates drin.
Einloggen, um Attachments anzusehen!
|
|
kaloschke 
Hält's aus hier
Beiträge: 9
|
Verfasst: So 25.01.09 21:18
Hi,
ob du es glaubst oder nicht: bei mir funktioniert Deine Übersetzung nicht! Jetzt bin ich etwas ratlos.
Habe mittlerweile Update 1 und Update 2 installiert.
Gruß Kaloschke
|
|
jaenicke
      
Beiträge: 19346
Erhaltene Danke: 1754
W11 x64 (Chrome, Edge)
Delphi 12 Pro, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: So 25.01.09 21:43
Also wenn die Exe nicht funktioniert... ähm... keine Laufzeitpackages usw., wie kann das vom System abhängen?
Ich klicke einfach mitten in das Panel, also eben den Bereich links, und das funktioniert.
Da muss ich mir mal anschauen was dabei passiert, aber das ist mir erstmal unerklärlich.
|
|
kaloschke 
Hält's aus hier
Beiträge: 9
|
Verfasst: So 25.01.09 23:55
Hi,
hier mal meine Exe.
Gruß Kaloschke
Einloggen, um Attachments anzusehen!
|
|
jaenicke
      
Beiträge: 19346
Erhaltene Danke: 1754
W11 x64 (Chrome, Edge)
Delphi 12 Pro, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Mo 26.01.09 01:36
Also: Deine Exe hat zwar viele Bytes (einzelne  ) unterschiedlich, aber funktionieren tut die bei mir auch...
Mal ganz dumm gefragt: wo genau klickst du hin? Du klickst wirklich ins Panel, also nicht auf die Titelleiste des Panels?
|
|
kaloschke 
Hält's aus hier
Beiträge: 9
|
Verfasst: Mo 26.01.09 13:53
Hi,
ich klicke auf den Titel "CategoryPanel", dann sollte der Showmessage-Dialog erscheinen.
Gruß Kaloschke
|
|
jaenicke
      
Beiträge: 19346
Erhaltene Danke: 1754
W11 x64 (Chrome, Edge)
Delphi 12 Pro, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Mo 26.01.09 15:42
Dafür hast du aber das falsche Event erwischt.
OnClick ist für einen Klick in den Clientbereich des Panels zuständig, also die ausgeklappte Fläche, nicht für dessen Titelleiste. Dort gibt es ja OnCollapse und OnExpand, wenn durch den Klick das Panel ein- oder ausgeklappt wird.
|
|
kaloschke 
Hält's aus hier
Beiträge: 9
|
Verfasst: Mo 26.01.09 20:03
Hi,
jaenicke hat folgendes geschrieben : | Dafür hast du aber das falsche Event erwischt.  |
Peinlich, Du hast recht! Trotzdem funktioniert der Klick in den Clientbereich nicht! Na egal, Hauptsache, Programm reagiert auf Klick in den Headerbereich. Ich möchte bei Anwahl eines Panels die anderen schließen. Gibt es dafür einen Weg "von Haus aus" oder muss man es selber programmieren?
Auf alle Fälle schon mal vielen Dank für die Hilfe.
Gruß Kaloschke
|
|
jaenicke
      
Beiträge: 19346
Erhaltene Danke: 1754
W11 x64 (Chrome, Edge)
Delphi 12 Pro, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Mo 26.01.09 20:21
Da habe ich auf die Schnelle nix gesehen, aber die drei Zeilen sind ja auch nicht viel. Einfach in OnExpand aller Panels das rein: Delphi-Quelltext 1: 2: 3:
| for i := 0 to ComponentCount - 1 do if Components[i] is TCategoryPanel then TCategoryPanel(Components[i]).Collapsed := Components[i] <> Sender; | Und damit ist das auch schon erledigt. 
|
|
kaloschke 
Hält's aus hier
Beiträge: 9
|
Verfasst: Mo 26.01.09 22:29
Supi,
Vielen Dank und Ciao
Kaloschke
|
|