bevæge paneler 1

stone,

i den rutine der sætter panel.left = +1 eller -1 skal du så teste på at left ikke bliver 0 eller mindre for det panel der bevæger sig til venstre og max.width - panel.width for den der bevæger sig mod højre.

Men, 2 spm:

1. vil du have det sådan at panelerne altid har samme størrelse og så bevæger sig fra midten ud mod siderne, så langt de kan, eller
2. skal det være 2 paneler der starter med at dække hele fomen og så bevæger sig mod højre og venstre som et tæppe der bliver trukket til side ?

jeg kan lave dig et lille program hvis du har lyst ?

Hejsa... Jeg har lavet en form med
2 timere (een til at åbne - FOpenTimer og een til at lukke FCloseTimer)
3 knapper (FOpenButton, FStopButton og FCloceButton
& 2 paneler (FLeftPanel og FRightPanel)

Panelerne placeres så de er lukkede Align=alNone og timerne sættes til enabled=flase når app. starter.

Panelerne flyttes ikke men laves smallere når døren åbnes. Når der er lukket helt op stoppes timeren igen.

Open-knappens OnClick

procedure TForm1.FOpenButtonClick(Sender: TObject);
begin
  FCloseTimer.Enabled := False;
  FOpenTimer.Enabled := True;
end;

Her kommer det der skal ske når lukke op timeren fyrer. Bemærk LockWindowUpdate som forhindrer at formen "flimrer" når panelerne skifter størrelse.

procedure TForm1.FOpenTimerTimer(Sender: TObject);
begin
  LockWindowUpdate(Self.Handle);
  try
    if (FLeftPanel.Width > 0) or (FRightPanel.Width > 0) then
    begin
      if FLeftPanel.Width > 0 then
        FLeftPanel.Width := FLeftPanel.Width-1;
      if FRightPanel.Width > 0 then
      begin
        FRightPanel.Width := FRightPanel.Width-1;
        FRightPanel.Left := FRightPanel.Left+1;
      end;
    end
    else
      FOpenTimer.Enabled := False;
  finally
    LockWindowUpdate(0);
  end;
end;

Der er selvf. en knap til at lukke igen... Stopper åbne-timeren of starter lukke-timeren.

procedure TForm1.FCloseButtonClick(Sender: TObject);
begin
  FOpenTimer.Enabled := False;
  FCloseTimer.Enabled := True;
end;

Stop begge timere. Døren står nu stille.

procedure TForm1.FStopButtonClick(Sender: TObject);
begin
  FOpenTimer.Enabled := False;
  FCloseTimer.Enabled := False;
end;

Endelig handleren til lukke-timeren.

procedure TForm1.FCloseTimerTimer(Sender: TObject);
begin
  LockWindowUpdate(Self.Handle);
  try
    if ((FLeftPanel.Left + FLeftPanel.Width) <= FRightPanel.Left) then
    begin
      if FLeftPanel.Width < FRightPanel.Left then
        FLeftPanel.Width := FLeftPanel.Width + 1;
      if (FRightPanel.Width < (FLeftPanel.Left + FLeftPanel.Width)) then
      begin
        FRightPanel.Left := FRightPanel.Left - 1;
        FRightPanel.Width := FRightPanel.Width + 1;
      end;
    end
    else
      FCloseTimer.Enabled := False;
  finally
    LockWindowUpdate(0);
  end;
end;

Sjensen:
2 Paneler skal have samme størrelse, og skal gå fra midten af formen ud til slutningen af formen.Som et tæppe som bliver trukket fra.
psv:
Dit eksempel ser interesant ud, men ikke lige det jeg skal bruge.

Nu er det jeg undrer mig lidt :-)

Min kode laver præcis det du vil have!!! 2 paneler der glider fra hinanden som et tæppe!!!

psv.
du har ret.