[ Closed ] Подскажите с скриптом... (Page 4 of 6)

О...не подскажите как сюда время (3 секунды) прикрутить?
программа ругается на научный метод тыка...

procedure Form1_Button4_OnClick (Sender: string; var Cancel: boolean);
begin
Screen.Cursor := crHourGlass;
end;
procedure Form1_Button4_OnAfterClick (Sender: string);
begin
Screen.Cursor := crDefault;
end;

на форме есть мемо...при редактировании жму на битон сохранить запись..
конечно же запись сохранилась за доли секунд, но для успокоения,
что я действительно нажал битон сохранить запись:
появляются песочные часики и радуют меня своим присутствием 3 секунды...
Вот возник вопросик как к скрипту время (3 секунды ) прикрутить?

Работает!!!  УрррА!
С Уважением и Благодарностью Роман!!!

заведите глобальную переменную например: isButton1: boolean;

затем для этих двух кнопок создайте событие OnClick, для первой кнопки в этом событии установите переменную isButton1 := True;

а для второй кнопки isButton1 := False;

затем в событии Form2_TableGrid1_OnDoubleClick делайте проверку этой переменной так

if isButton1 then Form2.Button3.Click else Form2.Button4.Click;

Приветствую,

сделал для вас проект с примером:

Всем доброго дня!
Этот  скрипт считает количество записей в таблице...

procedure Form1_TableGrid1_OnChange (Sender: string; ACol, ARow: Integer);
var
s: string;
begin
s := VarToStr ( SQLExecute('SELECT count(id) FROM base ;') );
Form1.Label35.Caption:= ' : ' + s;
end;

Добрые люди...подскажите, что надо здесь изменить  для подсчёта записей в TableGrid1?

                                                                                      С Уважением и Благодарностью Роман!!!

pha1984

Не получилось...все равно считает в таблице(Б.Д.)...
Что то надо изменить в третей строчки с низу..., чтоб считало в самом гриде...
Может ещё какие есть варианты?

Hello poma

To count records in a TableGrid, I dot so :

procedure Form1_Button1_OnAfterClick (Sender: string);
Var i : Integer;                                                             // et le compteur est mis à jour
begin
    Form1.TableGrid1.dbUpdate;
    i := Form1.TableGrid1.RowCount;
    Form1.Label1.Caption := IntToStr(i) + ' books in table Biblio';
end;

I put it behind OnAfterClick Event, so my table is automatically updated .

Is it OK for you ?

JB

Hello Pomah

Glad I could help you.
I've tested your project. ALl is OK !

In Form3, for Form3.Edit1, behind Form3.OnShow Event, I add this :

procedure Form3_OnShow (Sender: string; Action: string);
begin
     Form3.Edit1.SetFocus;
end;

The end user like that facilitates it work !!!! Ah ! Ah !

I too am an end user !

JB

Друзья поправьте пожалуйста, а то ошибку за ошибкой выдаёт...
//цвет текста
procedure Form1_Edit2_OnChange (Sender: string);
begin
Form1.Edit2.Text.Color := clRed;
end;

Дмитрий ...
не работает...а событие такое: procedure Form1_Edit2_OnChange (Sender: string);