Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.088 Beiträge
 
Delphi 12 Athens
 
#3

Re: MyInsight

  Alt 29. Apr 2010, 18:39
Zitat von Florian Hämmerle:
@Demo: In deiner Demo zeigt aber TestA auf 'ne Demo-Edit und nicht auf das TestA-Edit
Ups, da wurden ein paar Strings vergessen mit zu ändern.

Ändere mal OnInsight der Demo so ab:
Delphi-Quellcode:
procedure TForm1.OnInsight(Const Sender: IInsightItem);
begin
  if Sender.Text = 'TestAthen
    Edit1.SetFocus
  else
    if Sender.Text = 'TestBthen
Das ist auch der Grund, warum ich vorhin noch einen Data-Parameter den Gruppen und Items verpaßt hab.
(sowas wie das .Tag bei TComponent und dessen Nachfahren)

Damit es dann auch anders und so blöde Stringvergleiche gelöst werden kannen.

Zitat von Florian Hämmerle:
Echt ne coole Idee.
Danke

Ist im Delphi ja eigentlich schon eine recht praktische Angelegenheit und für andere Programme bestimmt auch brauchbar.

Aktuell versuche ich erstmal die TTreeView ordentlich auszusehn zu lassen
und erstell dann noch eine andere Version mit vermutlich TCategoryPanelGroup.
Letzeres vorwiegend für mich und TTreeView, da dieses auch in älteren Delphis schon enthalten ist.
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
  Mit Zitat antworten Zitat