Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Der_Unwissende,
24. Nov 2005
Am Einfachsten kannst du das machen, in dem du dein zweites Panel (bzw. alle analogen Eigenschaften) erst anzeigst, wenn die Maus bewegt wird. Dazu einfach folgende Methoden ändern:
procedure TMovingPanel.OnMouseDown;
begin
if (self.FComesFrom = fPool) or (self.FComesFrom = fPlan) then
begin
screen.Cursor := crdrag
end // if (self.FComesFrom = fPool) or (self.FComesFrom...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Der_Unwissende,
24. Nov 2005
Sorry, hab gestern nicht mehr reingeschaut. Ich häng dir mal (ausgehend von der ersten Version) ein Programm an, dass das erfüllen sollte, was du gern hättest.
Aber vorher ein paar Anmerkungen:
Wie du sehen wirst, hab ich deinen Code etwas anders formatiert und ich würde dir generell zu einer anderen Codeformatierung raten. Damit möchte ich dir überhaupt nicht zu meiner raten, ich glaube die...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Der_Unwissende,
23. Nov 2005
Hi,
wenn du auf einen Doppelklick reagieren möchtest, musst du nur prüfen ob sich ssDouble in Shift befindet. Dabei wird natürlich trotzdem ein MouseDown, MouseUp ausgelöst. Um hier das unerwünschte abzufangen, solltest du dir beim MouseDown die Start-Koordinaten merken und in MouseMove und MouseUp nur reagieren, wenn diese ungleich den aktuellen sind (also StartX <> X aus OnMouseMove/Up).
Dann...