скрытие кнопки

[megostudent]

подскажите как сделать чтобы на моей форме скрывалась кнопка например после 5 сентября, то есть 2-4 кнопка на форме видна, а когда я свою форму открываю 5, 6 и т.д. то кнопки на форме видно не было.

[NetSpace]

лучше все свои кнопки помести на панель Panel1. допустим, у тебя на ней 10 кнопок.а дальше тебе нужно при запуске проверять время на компе и ставить условие проверки времени и в нём написать скрытие:

with Panel1 do for i:=5 to 10 do TButton(Controls[i]).Visible:=False;

[megostudent]

а если мне над брать время не с компа, а например с какого-то сервера?

[Arsenx777]

просто надо спарсить эту дату и записать в переменную

[megostudent]

time-b.timefreq.bldrdoc.gov 132.163.4.102 NIST, Boulder, Colorado
вот например сервер, на нем есть время, IdDayTime1 этим компонентом можно узнать по 13 порту ихнюю дату и время. как можно сделать чтобы если на этом серве больше чем 5 сентября то кнопка не показывалась?

[megostudent]

вот чуток помозговав пришла такая идея если эту дату и время вывести в лейбл, а потом из лейбла выделить как-то чисто число месяца и по условию
если это число например больше 5 то кнопка уходит и инвизибл.
тогда новый вопрос: как вытянуть это число или как выбрать эти нужные символы из этой строки (взять чтоли по номеру какими они стоят в строке)?

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

о май год! Что так сложно проверить:

uses DateUtils;

... 

procedure TForm1.Button1Click(Sender: TObject);
begin
 if not (CompareDate(StrToDate(Edit1.Text),Now) = 0) then
 begin
   ShowMessage('Ничего не делаем=)');

 end else
 begin
  ShowMessage('Делаем что-то');
 end;
end;

[megostudent]

вот так пока смог решить эту проблему, мож ктот лучше что посоветует

IdDayTime1.Host:='132.163.4.102';
   IdDayTime1.Port:=13;
   Label1.Caption:=IdDayTime1.DayTimeStr;
   label2.Caption:=copy(label1.Caption, 19, 2 ) ;
   if label2.caption>'21' then
   button1.Visible:=false;