Okno

0

Czego użyć do stworzenia okna typu "Proszę czekać" które będę zamykał programowo.

Możliwość wstawienia różnych tekstów.
Możliwość zmiany kolorów ?

Próby z Formą niestety nie powiodły się.
Okno się pokazyje ale brakowało w nim tekstów.

0

Próby z formą nie powiodły się ?? Przecież na formie możesz sobie umieścić w zasadzie co tylko zechcesz (a już na pewno możesz zmieniać jej kolor, czy wstawiać na nią tekst :-P )

//do poniżej:

A umieściłeś na formie jakiegoś labela, albo coś takiego ??
A poza tym w Create raczej nie zadziała, ale możesz w Activate formy

0

Kolory umieszczałem w Create i działe
Tekst próbowałem różnie i nietery nie wychodzi.
A umieszczenie tekstu w Create mija się z celem.

0

Zaraz zaraz....
Jest forma (np. Form2).
Kladziesz na nia TLabel (np. Label1)...
Dajesz tez

FormStyle:=StayOnTop;

Pozniej, zeby wywolac okienko dajesz:

 Form2.Label1.Caption:='Prosze czekac...';
 Form2.Show;

A gdy chcesz zamknac to:

Form2.Close;

:| Co tu moze nie dzialac ???

[browar] [cya]

0

Zaraz zaraz....
Jest forma (np. Form2).
Kladziesz na nia TLabel (np. Label1)...
Dajesz tez FormStyle:=StayOnTop; Pozniej, zeby wywolac okienko dajesz:
Form2.Label1.Caption:='Prosze czekac...';
Form2.Show;
A gdy chcesz zamknac to:
Form2.Close;

procedure TForm1.Button1Click(Sender: TObject);
var a: real;
n : longint;
begin
Form2.label1.caption :='start';
Form2.show;
for n :=0 to 10000000 do
begin
a:=a+1;
a:=a/2;
a:=a*1.14;
a:=a-1;
end;
Form2.label1.caption :='koniec';
Form2.close;
end;

Niestety to nie działa.
Nie pokazuje się ani napis "start" ani "koniec".
Jężeli zablokuję Form2.Close zobaczę napis "koniec" ale formę muszę zamknąć ręcznie

0

przed petla, czy tym zadaniem na ktorego zakonczenie sie czeka, a po ustawieniach dotyczacych form2 dodaj
Application.ProcessMessages;

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