Добрый день, Сычев Юрий! 2)Элементарно: Компонент TStringGrid имеет свойство ColWidths(Index: Integer): Integer - содержит ширину столбца с индексом Index. w:=StingGrid1.ColWidth(2); 1) С форматированием чуть посложнее: нужно создать и написать обработчики событий, которые будут вызываться при: OnDrawCell - будет вызываться при отрисовке всех ячеек. В нем нужно пользоваться Canvas. OnGetEditMask - можно определить, какие символы допустимыs OnGetEditText - редактор для представления строки в ячейке OnSetEditText - для какой-то специальной обработки текста, вводимого пользователем OnKeyDown - вызывается при нажатии клавиш OnKeyUp - при отпускании клавиши OnColumnMoved - при перемещении колонки Какие лучше использовать - зависит от того, что Вы понимаете под словом "форматирование" Ответ отправлен: 06.11.2003, 14:36 Отправитель: Boriss
Вопрос № 1085
Привет всем :)) Ребята подскажите, пожалуйста, как узнать под каким логоном зашли в систему??? Объясняю ситуацию: Дочка 1-класс, заходит в систему под ANA, запускается таймер и через 1 час происходит SHUTDOWN системы с месагой «Вы сегодня просидели уже 1 час за компьютером. Доступ будет разрешен завтра» Таймер и SHUTDOWN я могу сделать. Так что помогите, пожалуйста, как узнать имя пользователя??? Или более общий вопрос. Как обмануть ребенка? Чтоб он не засиживался за компьютером :)))
Здравствуйте, qw! Самый простой способ (для 2кб,XP): Поместите программу в C:Documents and SettingsANAГлавное менюПрограммыАвтозагрузка и она будет загружаться только при регистрации пользователя ANA.
Ответ отправлен: 06.11.2003, 09:29 Отправитель: Orlando Отвечает Boriss
Доброе время суток, qw! Function GetUserFromWindows: string; Var UserName : string; UserNameLen : Dword; Begin UserNameLen := 255; SetLength(userName, UserNameLen); If GetUserName(PChar(UserName), UserNameLen) Then Result := Copy(UserName,1,UserNameLen - 1) Else Result := 'Unknown'; End; Или еще: напишите прогу, которая выключает комп через 1 час (можно, чтобы она записывала данные и в след раз сегодня - через 10 минут, 5 минут, сразу ...). То есть она запускается при загрузке и если пользователь .... то OnTimer ... Ответ отправлен: 06.11.2003, 14:47 Отправитель: Boriss Отвечает vitya
Ответ отправлен: 05.11.2003, 12:05 Отправитель: vitya Отвечает Илья
Приветствую Вас, qw! Вот рабочий код: int main(int argc, char* argv[]) { char cUser[256]; LPTSTR lpszUser = cUser; DWORD Size = 256; GetUserName(lpszUser, &Size); printf("%s
", lpszUser); } Если надо на Delphi то просто посмотри описание GetUserName в справке. Ответ отправлен: 06.11.2003, 00:19 Отправитель: Илья Отвечает Bob Johnson
Здравствуйте, qw! 1. Попробуй поставить системные ограничения в настройках windows. 2. Имя пользователя - функция GetUserName.
* EMan1.5: ---===*** The game we play ***===---
Ответ отправлен: 09.11.2003, 01:09 Отправитель: Bob Johnson
Вопрос № 1086
Здравствуйте уважаемые эксперты. Вопрос такой: Есть хранимые процедуры которые возвращают некоторые значения. Следующее работает, поля на самом деле одно Money а другое Float: label1.Caption := dm1.spGetHours10PayKind.ParamByName('@th').AsString; label2.Caption := dm1.spGetOrdersByPayKind.FieldByName('price_for_one').AsString; а вот это работать не хочет, в том смысле, что работает но я смотрю эту переменную в Watch и там ничего не меняется: sum_per_hour_10 := (dm1.spGetOrdersByPayKind.FieldByName('price_for_one').AsFloat) / (dm1.spGetHours10PayKind.ParamByName('@th').AsFloat); Среда Делфи 7, MSSQL server Т.е. нужные параметры возвращаются процедурами нормально, а данная операция не работает.
Здравствуйте, Dmitry! Потому что у Вас в первом приере стоит FieldByName, а во втором - ParamByName. Ответ отправлен: 05.11.2003, 12:41 Отправитель: sir henry
Вопрос № 1087
При переносе базы данных на другой компьютер он(компьютер) ругаеться что типа не установлена какаята фигня которая ставиться с делпчхи гдето я слышал что нужно кудато скопировать какието файлы Вопрос куда и че копировать
Доброе время суток, komrad! Слухай сюды, вот как надо: Берешь ту фигню с этого компьютера и копируешь на тот компьютер туда-же, где была та фигня на этом компьютере. Ответ отправлен: 05.11.2003, 12:37 Отправитель: sir henry Отвечает Orlando
Добрый день, komrad! Содержимое ..Common FilesBDE: файлы bantam.dll idapi32.dll idbat32.dll idpdx32.dll idr20009.dll idsql32.dll other.btl charset.cvb скопировать в каталог с программой, которая обращается к базе(тока не будут работать альясы) Ответ отправлен: 06.11.2003, 09:23 Отправитель: Orlando Отвечает THE_PRO
Здравствуйте, komrad! Yesli ti ispolzuyesh BDE to eto fayl bdeinst.dll A tochneye regsvr32 bdeinst.dll Eto installyator BDE Ответ отправлен: 06.11.2003, 11:06 Отправитель: THE_PRO
Вопрос № 1088
подскажите плз, как послать системное сообщение на удаленный компьютер?
Добрый день, Andrey! http://www.sources.ru/delphi/internet/ts.rar Вот те ссылка на программу, которая на мой взгляд тебе нужна! Там и есть как послать сообщение на другой комп через сокеты! Ответ отправлен: 05.11.2003, 15:30 Отправитель: CJ Отвечает Дима Мусиенко
Здравствуйте, Andrey! Если не программно, то можно воспользоваться утилитой net.exe но она есть в 2000XP на счет остальных не знаю. лежит она в winsystem. ЗЫ. Хотя я знаю, что ты имеешь ввиду программно, но *блин* давно я не отвечал на вопросы да и в ящик не заходил, надеюсь меня поймут.
Приложение: Ответ отправлен: 06.11.2003, 16:22 Отправитель: Дима Мусиенко Отвечает Bob Johnson
Приветствую Вас, Andrey! NetMessageBufferSend подойдет? Пример скоро будет на моей странице.
* EMan1.5: ---===*** The game we play ***===---
Ответ отправлен: 09.11.2003, 01:09 Отправитель: Bob Johnson
Форма отправки вопроса
Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+
или отправлять вопросы с сайта по адресу:
http://rusfaq.ru/cgi-bin/Message.cgi.