VPF::Повторное выполнение процедуры

malxazibb

Дата 26.10.2009, 14:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 20.8.2009

Репутация: нет
Всего: нет

приветствую всех.

помогите ни как не смог.

Код


procedure TForm1.sBitBtn1Click(Sender: TObject);

begin
 case (Sender as TsBitBtn).Tag of
 0: begin
    Form1.sPanel2.Visible:=false;
    Form1.DBGrid1.Width:=799;
    end;
 1: begin
    Form1.sPanel2.Visible:=true;
    Form1.DBGrid1.Width:=377;
    end;
    end;
    with(Sender as TsBitBtn) do
    Tag:=Tag+1;

end;
end;

хочу чтоб при следуюшем нажатии на sBitBtn повторялас та же процедура.

Это сообщение отредактировал(а) malxazibb - 26.10.2009, 14:15

bems

Дата 26.10.2009, 14:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88

она и будет. но case не сработает. Тебе наверное нужно проверять (tag mod 2) = 0

Добавлено через 35 секунд
Ну или Odd )

--------------------

Обижено школьников: 8

malxazibb

Дата 26.10.2009, 14:29 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 20.8.2009

Репутация: нет
Всего: нет

А как ето сделать.

Данкинг

Дата 26.10.2009, 14:36 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата(malxazibb @ 26.10.2009, 14:29

)

А как ето сделать.

Разобраться со своими .Tag. smile

--------------------

There's nothing left but silent epitaphs.

malxazibb

Дата 28.10.2009, 06:51 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 20.8.2009

Репутация: нет
Всего: нет

Данкинг ти всегда иронично насмихаешся над всеми при етом никагда не написав хотяби нормальную подсказку .

Всем кто интересуется сам дашол до истини.

Код


procedure TForm1.sBitBtn1Click(Sender: TObject);

begin
 case (Sender as TsBitBtn).Tag of
 0: begin
    Form1.sPanel2.Visible:=false;
    Form1.DBGrid1.Width:=799;
    end;
 1: begin
    Form1.sPanel2.Visible:=true;
    Form1.DBGrid1.Width:=377;
    end;
    end;
    with(Sender as TsBitBtn) do
    Tag:=1-Tag;

end;
endь

работает отлично.

Это сообщение отредактировал(а) malxazibb - 28.10.2009, 06:52

Beltar

Дата 28.10.2009, 16:02 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 627
Регистрация: 11.1.2006

Репутация: 0
Всего: 7

Слушай, ты вообще что делаешь? Скрываешь\показываешь боковую панельку? Объясни тогда мне тупому, нафига у тебя не?

sPanel2.Visible:=(Sender as TsBitBtn).Tag=1

Есно панель должна быть выровнена по боку, а сетка по клиенту, но почти все окошки переменного размера делятся на части разными панельками, выровненными по низам, верхам, бокам и каким-нибудь контролом, который забирает себе все остальное.

И нафига ты к форме обращаешься по имени из ее же методов? Я так могу сделать, если имя контрола не помню, но потом имя формы все равно стираю.

Цитата

ти всегда иронично насмихаешся над всеми при етом никагда не написав хотяби нормальную подсказку .

Во-первых: у тебя в предложении 7 ошибок, не считая пропущенной запятой после обращения.
Во-вторых: Репутация тов. Данкинга свидетельствует об обратном.

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы. smile

(с) я, хотя может и нет
Пищущий на C++ мужик. Даже если это мужик сидит в написанном на Delphi и жрущем паскалевскую библиотеку билдере.

Данкинг

Дата 28.10.2009, 17:51 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

malxazibb, во-первых, язык форума - русский. Во-вторых, за всех не отвечаю, но в данном случае я тебе ничего смешного не написал:

Цитата(malxazibb @ 28.10.2009, 06:51

)

Код


Tag:=1-Tag;

Т.е. что я и говорил:

Цитата(Данкинг @ 26.10.2009, 14:36

)

Разобраться со своими .Tag.

--------------------

There's nothing left but silent epitaphs.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »