Записи Друзья Комментарии
delphi club
Аватар delphi_club

 -Подписка по e-mail

 

 -Поиск по дневнику

Поиск сообщений в delphi_club

 -Интересы

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 27.12.2005
Записей:
Комментариев:
Написано: 30

Илья_Элиович

delphi_club: ДИПЛОМ

15-01-2012 13:40 (ссылка)   Удалить
В МОЕМ ДНЕВНИКЕ- нетривиальные темы.
 Перейти к комментарию С цитатой В цитатник
Аноним

delphi_club: Есть тут кто живой?

17-06-2008 08:02 (ссылка)   Удалить
Нет это другие режимы, в них добавлять можно программно, а что-бы программно нажать на кнопку нужно добавить на форму DBNavigator, сделать его DBNavigator1.Visible:=False и затем программно нажимать на кнопки
Все кнопки по очереди, как в DBNavigator:

DBNavigator1.BtnClick(nbFirst);
DBNavigator1.BtnClick(nbPrior);
DBNavigator1.BtnClick(nbNext);
DBNavigator1.BtnClick(nbLast);
DBNavigator1.BtnClick(nbInsert);
DBNavigator1.BtnClick(nbDelete);
DBNavigator1.BtnClick(nbEdit);
DBNavigator1.BtnClick(nbPost);
DBNavigator1.BtnClick(nbCancel);
DBNavigator1.BtnClick(nbRefresh);

В принципе ничего сложного
 Перейти к комментарию С цитатой В цитатник
Аноним

delphi_club: Без заголовка

04-06-2008 23:57 (ссылка)   Удалить
если нежалко, киньте плиз исходник на мыло jeqa@rambler.ru делаю похожую прогу, пападалово пипец %(
 Перейти к комментарию С цитатой В цитатник
Альфа_кот

delphi_club: :)

05-02-2008 04:37 (ссылка)   Удалить
как обычно тупо: нашёл рабочий пример, поменял имена переменных и вставил себе в проект
 Перейти к комментарию С цитатой В цитатник
Dronishe

delphi_club: :)

04-02-2008 19:13 (ссылка)   Удалить
И как ты это исправил?
 Перейти к комментарию С цитатой В цитатник
Альфа_кот

delphi_club: :)

04-02-2008 19:04 (ссылка)   Удалить
из-за системного косяка, оставшегося ещё со времён Win95
 Перейти к комментарию С цитатой В цитатник
Dronishe

delphi_club: :)

04-02-2008 18:31 (ссылка)   Удалить
Ну в принципе мне кажется что этот код достаточно нормален. А почему не работал?
 Перейти к комментарию С цитатой В цитатник
Альфа_кот

delphi_club: :)

04-02-2008 15:21 (ссылка)   Удалить
ну проблему уже решил, но всё таки изложу. вдруг лучшее решение найдётся :)
нужно посчитать число запущенных программ:

function ProccessesCount(ExeName : string) : integer;
var
SnapShot : THandle;
ProcEntry : TProcessEntry32;
begin
Result := 0;
SnapShot := CreateToolhelp32Snapshot(th32cs_snapprocess, 0);
if Process32First(SnapShot, ProcEntry) then
begin
if UpperCase(Trim(th32cs_snapprocess.szExeFile)) = UpperCase(Trim(ExeName)) then inc(Result);
while Process32Next do
if UpperCase(Trim(th32cs_snapprocess.szExeFile)) = UpperCase(Trim(ExeName)) then inc(Result);
end;
end;

суть проблемы была в том, что этот код не работал :)
 Перейти к комментарию С цитатой В цитатник
Dronishe

delphi_club: :)

04-02-2008 08:03 (ссылка)   Удалить
Cover, попробуй изложить суть проблемы, может смогу помочь.
Я уже и забыл что на это сообщество подписан...
 Перейти к комментарию С цитатой В цитатник
Альфа_кот

delphi_club: :)

04-02-2008 07:46 (ссылка)   Удалить
Смешной_Медведко, карланство - это что?
 Перейти к комментарию С цитатой В цитатник
Смешной_Медведко

delphi_club: :)

04-02-2008 07:36 (ссылка)   Удалить
Дык, одно увлечение Delphi уже должно говорить о карланстве.
 Перейти к комментарию С цитатой В цитатник
Альфа_кот

delphi_club: XPColorMap

04-02-2008 05:12 (ссылка)   Удалить
это чтобы окна были похожи на ХР-шные
 Перейти к комментарию С цитатой В цитатник
dandr

delphi_club: Есть тут кто живой?

18-01-2008 10:15 (ссылка)   Удалить
Автор: транзакция
насколько знаю надо добавлять запись в таблицу, которая привязана к гриду и навигатору, а это в хелпе смотри пример, это метод Table1.Insert для вставки или Table1.Append для добавления в конец
если я правильно поняла твой вопрос..
Собственно, вот тут уже подсказали. Разобрался, спасибо)))



 Перейти к комментарию С цитатой В цитатник
транзакция

delphi_club: Есть тут кто живой?

18-01-2008 09:12 (ссылка)   Удалить
насколько знаю надо добавлять запись в таблицу, которая привязана к гриду и навигатору, а это в хелпе смотри пример, это метод Table1.Insert для вставки или Table1.Append для добавления в конец
если я правильно поняла твой вопрос..
 Перейти к комментарию С цитатой В цитатник
Смешной_Медведко

delphi_club: Free Pascal

14-07-2007 00:54 (ссылка)   Удалить
вот ещё может заинтересовать.. Lazarus
 Перейти к комментарию С цитатой В цитатник
inner00

delphi_club: Без заголовка

27-06-2007 16:45 (ссылка)   Удалить
Ох, где ж вы раньше были, товарищ!)))
Почти моя тема :)
 Перейти к комментарию С цитатой В цитатник
Dronishe

delphi_club: XPColorMap

17-04-2007 20:59 (ссылка)   Удалить
Извенияй, юзаю шестую дельфю.
 Перейти к комментарию С цитатой В цитатник
FINNUGOR

delphi_club: Free Pascal

20-02-2007 16:29 (ссылка)   Удалить
Интересная ссылка... Будем знакомится...
 Перейти к комментарию С цитатой В цитатник
Аноним

delphi_club: эх...

05-02-2007 09:01 (ссылка)   Удалить
реклама
всё решает реклама
 Перейти к комментарию С цитатой В цитатник
Reki_25

delphi_club: Drag&Drop

30-07-2006 17:36 (ссылка)   Удалить
ладно, пусть это будет сообществом одного участника....
А ларчик просто открывался: надо было обрабатывать событие onMouseMove с проверкой, что нажата левая кнопка мыши, или проще:

if Shift=[ssLeft] then BeginDrag(true,0);

И все! Одна строчка! Блин, какая я тупая...
 Перейти к комментарию С цитатой В цитатник
Reki_25

delphi_club: Drag&Drop

25-07-2006 14:21 (ссылка)   Удалить
Так... никто не отвечает... ну ладно.
Я и так почти разобралась. Он почему-то не воспринимает событие Grid'а onMouseDown. Вернее, воспринимает, но только когда щелкаешь по незаполненной части таблицы. Когда же кликаешь по ячейке - не воспринимает. А onMouseUp работает в этом смысле исправно.
Странные какие-то вещи... Наверно, я чего-то не знаю...
 Перейти к комментарию С цитатой В цитатник
Reki_25

delphi_club: эх...

20-07-2006 16:45 (ссылка)   Удалить
Все впереди...
 Перейти к комментарию С цитатой В цитатник
Страницы: [1] 2 3 ..
.. 10 		»

О проекте