Можно процедуру вида:
Code: Select all
procedure ShowInfoPanel(Title : String; Content : TStringList);
procedure CloseInfoPanel(Title : String);
Code: Select all
procedure ShowInfoPanel(Title : String; Content : TStringList);
procedure CloseInfoPanel(Title : String);
FillNewWindow - супер, только бы иметь возможность его чистить из скрипта, а еще бы сразу поверх всех окон...Vizit0r wrote:мну не понимать.
FillNewWindow, не?
скрин дай, что именно ты хочешь.
Code: Select all
function InputBox ( const Caption, Prompt, Default : string ) : string;
InputBox - Функция отображает диалог, который просит пользователя о вводе текста, со значением по умолчанию.