Есть кнопка и текстовое поле. При нажатии на кнопку текстовое поле исчезает\появляется.
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.visible = false then Edit1.Visible := true
else Edit1.Visible := false
end;
А как сделать при нажатии на кнопку вызвать "функцию" ,
которая закроет\покажет текстовое поле.
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
//что-то вызывающее "функцию";
end;
//Сама "функция"
begin
if edit1.visible = false then Edit1.Visible := true
else Edit1.Visible := false;
end;