Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Form verschwindet


Zlatan - Di 08.03.11 17:12
Titel: Form verschwindet
Könnte jemand folgenden Quelltext korrigieren ?
Was ich möchte ist denke ich mal klar aber wenn ich beide Images verstecke und dann
das Image1 berühre (es sollte nun eigentlich weggehen) so verschwindet die Form

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
 
procedure TForm13.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if (Image4.Visible=false) and (Image5.Visible=FAlse)
then  Image1.hide
else
Form4.Show;
Form13.Close;


Klabautermann - Di 08.03.11 17:23
user profile iconZlatan hat folgendes geschrieben Zum zitierten Posting springen:
Was ich möchte ist denke ich mal klar


Ähm nein, ist es nicht. Du Versteckst halt Image 1 wenn auch die Images 4 & 5 unsichtbar sind. In jedem anderen Fall zeigst du Form4 an und zur Sicherheit schließt du immer, egal was mit den Images ist das Form13. Das ist eindeutig, aber was du damit vor hast ist keineswegs klar.

Wenn du aber bei Form13 nicht nur auf Nummer sicher gehen willst sonder es nur schließen soll, wenn die Images nicht sichtbar sind, dann hast du ein Begin und End vergessen. Solche Fehler lassen sich übrigens oft vermeiden, wenn man anständig einrückt :mahn::


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
 
procedure TForm13.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (Image4.Visible=false) and (Image5.Visible=FAlse) then  
    Image1.hide
  else
    Begin
      Form4.Show;
      Form13.Close;
    End;


Gruß
Klabautermann


Marc. - Di 08.03.11 17:24
user profile iconZlatan hat folgendes geschrieben Zum zitierten Posting springen:
Könnte jemand folgenden Quelltext korrigieren ?

Ja, bestimmt. Sehr viel sinnvoller ist es allerdings, wenn du selbst(!) noch einmal über deinen geposteten Quelltext schaust. :roll:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
 
procedure TForm13.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (Image4.Visible=false) and (Image5.Visible=FAlse) then
     Image1.hide
  else
     Form4.Show;
  Form13.Close;

Korrektes Einrücken hilft hier übrigens ungemein. :?


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!