Архив форумов ЦИТФорума

[Гость]

Камрады!!! Подскажите, как заставить кнопку Save активироваться если программе в строке типа TMemo есть хоть один символ. Если пришлёте пример буду благодарен (так наглядней). Спасибо всем зарание за одзывы и предложения.

[Sank Katarr]

Вместо Memo1 выбери свой мемо, а вместо Button1 кнопку Save.
Принцип такой - при изменение если число символов больше о, то делает кнопку активной, если меньше, то... (угадай сам).
По умалчанию кнопка сделана Enabled=False.
procedure TForm1.Memo1Change(Sender: TObject);
begin
If Memo1.Lines.Count > 0 Then Button1.Enabled:=True Else Button1.Enabled:=False;
end;

[grayrat]

Button1.Enabled:=Memo1.Lines.Count > 0;