как сделать окно "Совет дня.."

[Человек_Борща]

Всем привет!

Во многих программах, при запуске, видел такую вещь.
Выскакивает окно "Совет дня.."
И кнопки "Ещё.." и "Отмена" галочка "Не показывать больше".

Как такое реализовать?
Чтобы можно было при нажати "Ещё" выдавать строку наугад из файла.

[Valio]

Сообщений: 509
Репутация: 47

И никаких соображений по сабжу?

Создать форму с кнопочками и делать Show при старте...

[ArtGrek]

понадобица ini, что б сохранят переменую типа Boolean, показыват ли при старте такое сообшение
если показыват то

Создать форму с кнопочками и делать Show при старте...

[MyLastHit]

Чтобы можно было при нажати "Ещё" выдавать строку наугад из файла.

Вот процедурку организовал для перемешивания строк в Стринг листе.

procedure Rando(rand:TStringList);
var Arr: array [1..105] of Byte;  //104 это кол-во строк в файле
    b: Byte;
begin
  for i := 0 to 104 do
    Arr[i] := i;
  Randomize;
  for i := 0 to 103 do
  begin
    j := 104 - Random (105-i);
    b := Arr[i];
    Arr[i] := Arr[j];
    Arr[j] := b;
  end;
  rand.Clear;
  for i := 0 to 104 do
  rand.Add (IntToStr (Arr[i]));
end;

Вызывать примерно так:

var listik:Tstringlist;
     sovet:Tlabel;

ОнКриэйт:

begin
  listik:=Tstringlist.create;
  listik.loadfromfile('путь');
  rando(listik);
  sovet:=listik[0]; 
end;

На "Еще" вешаешь

sovet:=listik[1];

и тд...цикл оформить чтоб не мучаться.
А как сказал Valio, просто создавай формы(я бы по такому случаю делал им бы им bsnone, и повесил бы на форму в MouseDown:

  ReleaseCapture;
  Perform(WM_SYSCOMMAND, $F012, 0);

И крестик для закрытия в углу.

[Человек_Борща]

Сообщение от Valio

И никаких соображений по сабжу?

Создать форму с кнопочками и делать Show при старте...

Под конец дня? Какие могут быть соображения вообще!?

MyLastHit благодарен, сейчас соображу как это и чем это делать=)

[Alex Defsen]

Randomize();
Memo1.Text := S[Random(S.Count-1)];

Это на OnShow окна "Совет дня".
Memo1 - то, где будет сам совет.
S - список строк с советами. Одна строка = один совет.
При нажатии на кнопку дальше - аналогичный код.

[Пепел Феникса]

Alex Defsen, дополню лишь одно, Randomize достаточно поставить в OnCreate основной формы(а то и в начало dpr)

[Человек_Борща]

Благодарен, всем отписавшимся, кажется поняль что да как...

[MyLastHit]

Alex Defsen, по твоему алгоритму возможны повторы неприятные есть % вероятности, что человек будет наблюдать 2, а то и 3 одинаковых совета подряд.

[Человек_Борща]

хм вариант Alex Defsen'а подошёл лучше. Если не хотеть повторов значит надо писать больше советов.

Вот что у меня получилось. Приаттачил архив, компилированный+сырец=)


А вот допустим если используется доп. компонент преводчик, то как быть?
Вот у меня с этим трабл, я использую BalmSoft Polyglot 1.7 транслятор(Жадб разработка прекратилась), как мне скристить сабж темы с этим транслятором? Чтобы все Tips хранились там же где и все строки выниманиемы транслятором?