 Zlatan hat folgendes geschrieben  : |
| 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
:
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
