procedure TForm1.Button1Click(Sender: TObject);
begin
if goEditing in StringGrid1.Options then
StringGrid1.Options := StringGrid1.Options - [goEditing]
else
StringGrid1.Options := StringGrid1.Options + [goEditing];
end;
StringGrid
Например при нажатии на Button1 goEditing:=False, а Button2 goEditing:=True;
Пишу:
...Options:=[...,goEditing];
goEditing кричит Undeclared, да и все что вместо ... тоже Undeclared :(
Подскажите как можно сделать :???:
Цитата:
Originally posted by LastSoul
Как программно можно менять Options в StringGrid?
Например при нажатии на Button1 goEditing:=False, а Button2 goEditing:=True;
Пишу:
...Options:=[...,goEditing];
goEditing кричит Undeclared, да и все что вместо ... тоже Undeclared :(
Подскажите как можно сделать :???:
Как программно можно менять Options в StringGrid?
Например при нажатии на Button1 goEditing:=False, а Button2 goEditing:=True;
Пишу:
...Options:=[...,goEditing];
goEditing кричит Undeclared, да и все что вместо ... тоже Undeclared :(
Подскажите как можно сделать :???:
Можно вот так - одна кнопка и включает опцию, и выключает:
Код:
Цитата:
Originally posted by sp999
Можно вот так - одна кнопка и включает опцию, и выключает:
Можно вот так - одна кнопка и включает опцию, и выключает:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if goEditing in StringGrid1.Options then
StringGrid1.Options := StringGrid1.Options - [goEditing]
else
StringGrid1.Options := StringGrid1.Options + [goEditing];
end;
begin
if goEditing in StringGrid1.Options then
StringGrid1.Options := StringGrid1.Options - [goEditing]
else
StringGrid1.Options := StringGrid1.Options + [goEditing];
end;
Спасибо, работает... :D
Я и со своим код разобрался...
Когда я писал Form#.String..... то вылазила ошибка (почему-то), а если StringGrid находился на той же форме что и какой-нибудь Button то все нормально работало...