Problem z właściwościami komponentu TImage

0

Mam problem. A mianowicie mam komponent TImage o nazwie d4 i procedure klikniecia na niego i chce wykonać taką akcje:

d4.Left:=356;
d4.Top:=268;
sleep(2000);
d4.Visible:=false;

ale Delphi po kliknieciu czeka chwilę i ustawia visible na false, a nie ustawia d4 w odpowiednim miejscu przedtem. Jak to zrobić? Proszę o pomoc, a za każdą będę wdzieczny :)

0 
//...
D4.Left := 356;
D4.Top := 268;
Application.ProcessMessages;
Sleep(2000);
D4.Visible := False;
//...
0

potrzebna jest jeszcze instrukcja zwracająca sterowanie do programu, czyli Application.ProcessMessages;

procedure TForm1.d4Click(Sender: TObject);
begin
    d4.Left:=356;
    d4.Top:=268;
    Application.ProcessMessages;
    sleep(2000);
    d4.Visible:=false;
end;
0

Ślicznie dziękuje! Sam bym na to nie wpadł, nigdy nie miałem takiego problemu :)

1 użytkowników online, w tym zalogowanych: 0, gości: 1